home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / mint / lib / mlib44d.zoo / diffc next >
Text File  |  1994-03-01  |  139KB  |  5,339 lines
  1. *** 43.1    1994/02/15 19:34:32
  2. --- a64l.c    1994/02/28 09:32:14
  3. ***************
  4. *** 66,72 ****
  5.   
  6.   /* Local function prototypes */
  7.   static int a64i __PROTO((char c));  /* base-64 char to int, -1 on error */
  8. - static char i64a __PROTO((int i));  /* integer to base-64 char, 0x7F on error */
  9.   
  10.   /* base-64 char to int, -1 on error */
  11.   static int a64i(c)
  12. --- 66,71 ----
  13. ***************
  14. *** 112,162 ****
  15.     return(retval);
  16.   } /* End of a64l() */
  17.   
  18. - /* integer to base-64 char, 0x7F on error */
  19. - static char i64a(i)
  20. -   int i;
  21. - {
  22. -   char retval = (char)i;
  23. -   
  24. -   if ((i < 0) || (i > 63))
  25. -   {
  26. -     errno = EBADARG;
  27. -     return(0x7F);
  28. -   }
  29. -   retval += '.';
  30. -   if (i > 11)
  31. -     retval += 'A' - '9' - 1;
  32. -   if (i > 37)
  33. -     retval += 'a' - 'Z' - 1;
  34. -   return(retval);
  35. - } /* End of i64a() */
  36. - 
  37. - /* long to base-64 string */
  38. - char *l64a(l)
  39. -   long l;
  40. - {
  41. -   static char retval[7];
  42. -   char buffer[7], *ptr1 = buffer, *ptr2 = retval;
  43. -   int counter = 0;
  44. - 
  45. -   if (l < 0)
  46. -   {
  47. -     errno = EBADARG;
  48. -     return("");
  49. -   }
  50. -   if (l == 0)
  51. -     return("");
  52. -   while ((counter++ < 6) && (l > 0))
  53. -   {
  54. -     char val;
  55. -     
  56. -     if ((val = i64a((char)(l & 0x3F))) == 0x7F)
  57. -       return(""); /* errno was set by i64a() */
  58. -     *ptr1++ = val;
  59. -     l >>= 6;
  60. -   }
  61. -   while (ptr1 > buffer)
  62. -     *ptr2++ = *(--ptr1);
  63. -   *ptr2 = 0x00;
  64. -   return(retval);
  65. - } /* End of l64a() */
  66. --- 111,113 ----
  67. *** 43.1    1994/02/15 19:34:32
  68. --- abort.c    1994/02/27 13:14:44
  69. ***************
  70. *** 1,4 ****
  71. ! /* ERS */
  72.   
  73.   #include <signal.h>
  74.   #include <stdlib.h>
  75. --- 1,4 ----
  76. ! /* by ERS, modified by entropy */
  77.   
  78.   #include <signal.h>
  79.   #include <stdlib.h>
  80. ***************
  81. *** 17,31 ****
  82.   {
  83.   #ifdef __MINT__
  84.       if (__mint)
  85.           (void) Pkill(Pgetpid(), SIGABRT);
  86. ! #if 0
  87. !     /* Do not do this because it violates POSIX (raise() and
  88. !        kill() are available for the user unless <signal.h> is
  89. !        included in user's source).  Fix later.
  90. !     */
  91.       else
  92.           raise(SIGABRT);
  93. - #endif
  94.       _fclose_all_files();
  95.       _exit(127);
  96.   #else
  97. --- 17,33 ----
  98.   {
  99.   #ifdef __MINT__
  100.       if (__mint)
  101. +         {
  102.           (void) Pkill(Pgetpid(), SIGABRT);
  103. !         /* process still alive, maybe SIGABRT was blocked */
  104. !         (void) Psigsetmask(Psigblock(0) & ~(sigmask(SIGABRT)));
  105. !         /* process still alive, maybe SIGABRT was ignored */
  106. !         /* is this correct if user SIGABRT handler returns? */
  107. !         (void) Psignal(SIGABRT, (long) SIG_DFL);
  108. !         (void) Pkill(Pgetpid(), SIGABRT);
  109. !         }
  110.       else
  111.           raise(SIGABRT);
  112.       _fclose_all_files();
  113.       _exit(127);
  114.   #else
  115. *** 43.1    1994/02/15 19:34:32
  116. --- abs.c    1994/02/28 12:17:48
  117. ***************
  118. *** 4,17 ****
  119.   #ifdef abs
  120.   #undef abs
  121.   #endif
  122. - #ifdef labs
  123. - #undef labs
  124. - #endif
  125.   
  126.   int abs(x)
  127. ! int x;
  128. ! { return x < 0 ? -x : x; }
  129. ! 
  130. ! long labs(x)
  131. ! long x;
  132. ! { return x < 0 ? -x : x; }
  133. --- 4,12 ----
  134.   #ifdef abs
  135.   #undef abs
  136.   #endif
  137.   
  138.   int abs(x)
  139. !   int x;
  140. ! {
  141. !   return x < 0 ? -x : x;
  142. ! }
  143. *** /dev/null    Mon Feb 28 07:43:04 1994
  144. --- atoi.c    Mon Feb 28 04:38:26 1994
  145. ***************
  146. *** 0 ****
  147. --- 1,13 ----
  148. + #include <stddef.h>
  149. + #include <stdlib.h>
  150. + #include <assert.h>
  151. + 
  152. + __EXTERN long strtol __PROTO((const char *, char **, int));
  153. + 
  154. + int
  155. + atoi(str)
  156. + const char *str;
  157. + {
  158. +     assert ((str != NULL));
  159. +     return (int) strtol(str, (char **)0, 10);
  160. + }
  161. *** 43.1    1994/02/15 19:34:32
  162. --- atol.c    1994/02/28 09:38:36
  163. ***************
  164. *** 6,19 ****
  165.   
  166.   __EXTERN long strtol __PROTO((const char *, char **, int));
  167.   
  168. ! int atoi(str)
  169. ! const char *str;
  170. ! {
  171. !     assert ((str != NULL));
  172. !     return (int) strtol(str, (char **)0, 10);
  173. ! }
  174. ! 
  175. ! long atol(str)
  176.   const char *str;
  177.   {
  178.       assert ((str != NULL));
  179. --- 6,13 ----
  180.   
  181.   __EXTERN long strtol __PROTO((const char *, char **, int));
  182.   
  183. ! long
  184. ! atol(str)
  185.   const char *str;
  186.   {
  187.       assert ((str != NULL));
  188. *** 43.1    1994/02/15 19:34:32
  189. --- chmod.c    1994/02/28 09:50:08
  190. ***************
  191. *** 1,5 ****
  192.   /* chmod -- change the permissions of a file */
  193. - /* chown -- change the owner and group of a file */
  194.   /* written by Eric R. Smith and placed in the public domain */
  195.   
  196.   #include <types.h>
  197. --- 1,4 ----
  198. ***************
  199. *** 13,19 ****
  200.   
  201.   extern int __mint;
  202.   
  203. ! int chmod(_path, mode)
  204.          const char *_path;
  205.          int   mode;
  206.   {
  207. --- 12,19 ----
  208.   
  209.   extern int __mint;
  210.   
  211. ! int
  212. ! chmod(_path, mode)
  213.          const char *_path;
  214.          int   mode;
  215.   {
  216. ***************
  217. *** 60,84 ****
  218.          return 0;
  219.   }
  220.   
  221. - /*
  222. -  * chown: this is faked if MiNT is not running
  223. -  */
  224. - 
  225. - int chown(_name, uid, gid)
  226. -        const char *_name;
  227. -        int uid, gid;
  228. - {
  229. -     int r;
  230. -     char name[PATH_MAX];
  231. - 
  232. -     if (__mint >= 9) {
  233. -         (void)_unx2dos(_name, name);
  234. -         r = (int)Fchown(name, uid, gid);
  235. -         if (r && (r != -EINVAL)) {
  236. -             errno = -r;
  237. -             return -1;
  238. -         }
  239. -         return 0;
  240. -     }
  241. -     return 0;
  242. - }
  243. --- 60,62 ----
  244. *** /dev/null    Mon Feb 28 07:43:04 1994
  245. --- chown.c    Mon Feb 28 04:50:02 1994
  246. ***************
  247. *** 0 ****
  248. --- 1,34 ----
  249. + /* chown -- change the owner and group of a file */
  250. + /* written by Eric R. Smith and placed in the public domain */
  251. + /* this is faked if MiNT is not running */
  252. + 
  253. + #include <types.h>
  254. + #include <stat.h>
  255. + #include <osbind.h>
  256. + #include <mintbind.h>
  257. + #include <limits.h>
  258. + #include <errno.h>
  259. + #include <unistd.h>
  260. + #include "lib.h"
  261. + 
  262. + extern int __mint;
  263. + 
  264. + int
  265. + chown(_name, uid, gid)
  266. +        const char *_name;
  267. +        int uid, gid;
  268. + {
  269. +     int r;
  270. +     char name[PATH_MAX];
  271. + 
  272. +     if (__mint >= 9) {
  273. +         (void)_unx2dos(_name, name);
  274. +         r = (int)Fchown(name, uid, gid);
  275. +         if (r && (r != -EINVAL)) {
  276. +             errno = -r;
  277. +             return -1;
  278. +         }
  279. +         return 0;
  280. +     }
  281. +     return 0;
  282. + }
  283. *** 43.1    1994/02/15 19:34:32
  284. --- div.c    1994/02/28 10:12:58
  285. ***************
  286. *** 1,5 ****
  287.   /*
  288. !  * div and ldiv
  289.    *    this one should be compat with -fpcc-struct-return
  290.    *
  291.    *    ++jrb    bammi@dsrgsun.ces.cwru.edu
  292. --- 1,5 ----
  293.   /*
  294. !  * div
  295.    *    this one should be compat with -fpcc-struct-return
  296.    *
  297.    *    ++jrb    bammi@dsrgsun.ces.cwru.edu
  298. ***************
  299. *** 11,17 ****
  300.   long __divsi3(long, long);    /* returns: quot in d0.l  remainder in d1.l */
  301.   
  302.   #ifdef __MSHORT__
  303. ! div_t div(int num, int denom)
  304.   {
  305.       div_t     result;
  306.   
  307. --- 11,18 ----
  308.   long __divsi3(long, long);    /* returns: quot in d0.l  remainder in d1.l */
  309.   
  310.   #ifdef __MSHORT__
  311. ! div_t
  312. ! div(int num, int denom)
  313.   {
  314.       div_t     result;
  315.   
  316. ***************
  317. *** 29,52 ****
  318.   #else /* !__MSHORT__ */
  319.   __asm__(".stabs \"_div\",5,0,0,_ldiv");
  320.   #endif
  321. - 
  322. - ldiv_t ldiv(long num, long denom)
  323. - {
  324. -     ldiv_t    result;
  325. - 
  326. -     __asm__ volatile("\
  327. -          movl    %3,sp@-
  328. -         movl    %2,sp@-
  329. -         jsr    ___divsi3
  330. -         addqw    #8,sp
  331. -         movl    d0,%0
  332. -         movl    d1,%1"
  333. -         : "=g"(result.quot), "=g"(result.rem)
  334. -         : "r"(num), "r"(denom)
  335. -         ); /* compiler dependency, dont tell gcc about d0,d1 clobb */
  336. -     return result;
  337. - }
  338. - 
  339.   #else /* !__GNUC__ */
  340.   
  341.   div_t
  342. --- 30,35 ----
  343. ***************
  344. *** 54,71 ****
  345.   int num, denom;
  346.   {
  347.       div_t res;
  348. -     
  349. -     res.quot = num / denom;
  350. -     res.rem = num % denom;
  351. -     
  352. -     return res;
  353. - }
  354. - 
  355. - ldiv_t
  356. - ldiv(num, denom)
  357. - long num, denom;
  358. - {
  359. -     ldiv_t res;
  360.       
  361.       res.quot = num / denom;
  362.       res.rem = num % denom;
  363. --- 37,42 ----
  364. *** /dev/null    Mon Feb 28 07:43:04 1994
  365. --- fgetpos.c    Mon Feb 28 06:30:12 1994
  366. ***************
  367. *** 0 ****
  368. --- 1,19 ----
  369. + /* from Dale Schumacher's dLibs */
  370. + 
  371. + #include <stdio.h>
  372. + 
  373. + int
  374. + fgetpos(fp, pos)
  375. +   FILE *fp;
  376. +   fpos_t *pos;
  377. + {
  378. +   register long rv;
  379. + 
  380. +   rv = ftell(fp);
  381. +   if ((rv >= 0) && pos)
  382. +   {
  383. +     *pos = rv;
  384. +     return (0);
  385. +   }
  386. +   return (-1);
  387. + }
  388. *** 43.1    1994/02/15 19:34:32
  389. --- fopen.c    1994/02/28 11:06:46
  390. ***************
  391. *** 5,160 ****
  392.   #include <fcntl.h>
  393.   #include <unistd.h>
  394.   #include <errno.h>
  395.   
  396.   __EXTERN void _getbuf __PROTO((FILE *));
  397. - static FILE *_fopen __PROTO((const char *, const char *, FILE *));
  398.   
  399. ! extern int __mint;
  400. ! 
  401. ! /* lowest character device handle # */
  402. ! #define    LAST_DEVICE    __SMALLEST_VALID_HANDLE
  403. ! 
  404. ! extern int __default_mode__;
  405. ! 
  406. ! static FILE *_fopen(filename, mode, fp)
  407. !     const char *filename;
  408. !     const char *mode;
  409. !     FILE *fp;
  410. ! /*
  411. !  *    INTERNAL FUNCTION.  Attempt to open <filename> in the given
  412. !  *    <mode> and attach it to the stream <fp>
  413. !  */
  414. !     {
  415. !     register int h, i, iomode = 0, f = __default_mode__;
  416. ! 
  417. !     while(*mode)
  418. !         {
  419. !         switch(*mode++)
  420. !             {
  421. !             case 'r':
  422. !                 f |= _IOREAD;
  423. !                 break;
  424. !             case 'w':
  425. !                 f |= _IOWRT;
  426. !                 iomode |= (O_CREAT | O_TRUNC);
  427. !                 break;
  428. !             case 'a':
  429. !                 f |= _IOWRT;
  430. !                 iomode |= (O_CREAT | O_APPEND);
  431. !                 break;
  432. !             case '+':
  433. !                 f &= ~(_IOREAD | _IOWRT);
  434. !                 f |= _IORW;
  435. !                 break;
  436. !             case 'b':
  437. !                 f |= _IOBIN;
  438. !                 break;
  439. !             case 't':
  440. !                 f &= ~_IOBIN;
  441. !                 break;
  442. !             default:
  443. !                 return(NULL);
  444. !             }
  445. !         }
  446. !     if((i = (f & (_IORW | _IOREAD | _IOWRT))) == 0)
  447. !         return(NULL);
  448. !     else if(i == _IOREAD)
  449. !         iomode |= O_RDONLY;
  450. !     else if(i == _IOWRT)
  451. !         iomode |= O_WRONLY;
  452. !     else
  453. !         iomode |= O_RDWR;
  454. !     iomode |= O_NOCTTY;
  455. !     h = open(filename, iomode, 0666);
  456. !     if(h < __SMALLEST_VALID_HANDLE)
  457. !         {
  458. !         return(NULL);        /* file open/create error */
  459. !         }
  460. !     if(isatty(h))
  461. !         f |= __mint ? (_IODEV | _IONBF| _IOBIN) : (_IODEV | _IONBF);
  462. !     else
  463. !         f |= _IOFBF;
  464. !     fp->_file = h;            /* file handle */
  465. !     fp->_flag = f;            /* file status flags */
  466. !     if (iomode & O_APPEND)
  467. !         (void) fseek(fp, 0L, SEEK_END);
  468. ! 
  469. !     return(fp);
  470. !     }
  471. ! 
  472. ! FILE *fopen(filename, mode)
  473. !     const char *filename, *mode;
  474. !     {
  475. !     register int i;
  476. !     register FILE *fp = NULL;
  477. ! 
  478. !     for(i=0; (!fp && (i < _NFILE)); ++i)
  479. !         if(!(_iob[i]._flag & (_IORW | _IOREAD | _IOWRT))) 
  480. !             fp = &_iob[i]; /* empty slot */
  481. !     if(fp != NULL)
  482. !     {
  483. !         if(_fopen(filename, mode, fp) == NULL)
  484. !             return NULL;
  485. !         _getbuf(fp);
  486. !         return fp;
  487. !     }
  488. !     else
  489. !       {
  490. !         errno = EMFILE;
  491. !         return NULL;
  492. !       }
  493. !     }
  494. ! 
  495. ! /*
  496. !  * re-coded,  foobared code deleted
  497. !  *
  498. !  *    ++jrb
  499. !  */
  500. ! FILE *freopen(filename, mode, fp)
  501.       const char *filename, *mode;
  502. -     FILE *fp;
  503.   {
  504. !     unsigned int f;
  505. !     
  506. !     if(fp == NULL) return NULL;
  507. !     
  508. !     f = fp->_flag;
  509. !     if((f & (_IORW | _IOREAD | _IOWRT)) != 0)
  510. !     { /* file not closed, close it */
  511. ! #if 0
  512. !         if(fflush(fp) != 0) return NULL;            /* flush err */
  513. !         if(close(fp->_file) != 0) return NULL;        /* close err */
  514. ! #else
  515. !     fflush(fp);                /* ANSI says ignore errors */
  516. !     if (__mint || !(f & _IODEV))        /* leave tty's alone */
  517. !       close(fp->_file);
  518. ! #endif
  519. !     }
  520. !     /* save buffer discipline and setbuf settings, and _IOWRT just for
  521. !        determinining line buffering after the next _fopen */
  522. !     f &= (_IOFBF | _IOLBF | _IONBF | _IOMYBUF | _IOWRT);
  523. ! 
  524. !     /* open the new file according to mode */
  525. !     if((fp = _fopen(filename, mode, fp)) == NULL)
  526. !     return NULL;
  527. !     if(fp->_flag & _IODEV)
  528. !     { /* we are re-opening to a tty */
  529. !     if((f & _IOFBF) && (f & _IOWRT) && (f & _IOMYBUF))
  530. !     {   /* was a FBF & WRT & !setvbuff'ed  */
  531. !         /* reset to line buffering */
  532. !         f &= ~_IOFBF;
  533. !         f |=  _IOLBF;
  534. !     }
  535. !     }
  536. !     f &= ~_IOWRT; /* get rid of saved _IOWRT flag */
  537. !     
  538. !     /* put buffering and discipline flags in new fp->_flag */
  539. !     fp->_flag &= ~(_IONBF | _IOLBF | _IOFBF | _IOMYBUF);
  540. !     fp->_flag |= f;
  541. !     
  542. !     if (fp->_base == NULL)
  543. !       /* get new buffer if file was closed */
  544. !       _getbuf (fp);
  545.   
  546.       return fp;
  547. !     }
  548. --- 5,34 ----
  549.   #include <fcntl.h>
  550.   #include <unistd.h>
  551.   #include <errno.h>
  552. + #include "lib.h"
  553.   
  554.   __EXTERN void _getbuf __PROTO((FILE *));
  555.   
  556. ! FILE *
  557. ! fopen(filename, mode)
  558.       const char *filename, *mode;
  559.   {
  560. !   register int i;
  561. !   register FILE *fp = NULL;
  562.   
  563. +   for (i=0; (!fp && (i < _NFILE)); ++i)
  564. +     if (!(_iob[i]._flag & (_IORW | _IOREAD | _IOWRT))) 
  565. +       fp = &_iob[i]; /* empty slot */
  566. +   if (fp != NULL)
  567. +   {
  568. +     if (_fopen_i(filename, mode, fp) == NULL)
  569. +       return NULL;
  570. +     _getbuf(fp);
  571.       return fp;
  572. !   }
  573. !   else
  574. !   {
  575. !     errno = EMFILE;
  576. !     return NULL;
  577. !   }
  578. ! }
  579. *** /dev/null    Mon Feb 28 07:43:04 1994
  580. --- fopen_i.c    Mon Feb 28 06:06:38 1994
  581. ***************
  582. *** 0 ****
  583. --- 1,79 ----
  584. + /* from Dale Schumacher's dLibs */
  585. + 
  586. + #include <stdio.h>
  587. + #include <stdlib.h>
  588. + #include <fcntl.h>
  589. + #include <unistd.h>
  590. + #include "lib.h"
  591. + 
  592. + extern int __mint;
  593. + 
  594. + extern int __default_mode__;
  595. + 
  596. + FILE *
  597. + _fopen_i(filename, mode, fp)
  598. +     const char *filename;
  599. +     const char *mode;
  600. +     FILE *fp;
  601. + /*
  602. +  *    INTERNAL FUNCTION.  Attempt to open <filename> in the given
  603. +  *    <mode> and attach it to the stream <fp>
  604. +  */
  605. +     {
  606. +     register int h, i, iomode = 0, f = __default_mode__;
  607. + 
  608. +     while (*mode)
  609. +         {
  610. +         switch (*mode++)
  611. +             {
  612. +             case 'r':
  613. +                 f |= _IOREAD;
  614. +                 break;
  615. +             case 'w':
  616. +                 f |= _IOWRT;
  617. +                 iomode |= (O_CREAT | O_TRUNC);
  618. +                 break;
  619. +             case 'a':
  620. +                 f |= _IOWRT;
  621. +                 iomode |= (O_CREAT | O_APPEND);
  622. +                 break;
  623. +             case '+':
  624. +                 f &= ~(_IOREAD | _IOWRT);
  625. +                 f |= _IORW;
  626. +                 break;
  627. +             case 'b':
  628. +                 f |= _IOBIN;
  629. +                 break;
  630. +             case 't':
  631. +                 f &= ~_IOBIN;
  632. +                 break;
  633. +             default:
  634. +                 return(NULL);
  635. +             }
  636. +         }
  637. +     if ((i = (f & (_IORW | _IOREAD | _IOWRT))) == 0)
  638. +         return(NULL);
  639. +     else if (i == _IOREAD)
  640. +         iomode |= O_RDONLY;
  641. +     else if (i == _IOWRT)
  642. +         iomode |= O_WRONLY;
  643. +     else
  644. +         iomode |= O_RDWR;
  645. +     iomode |= O_NOCTTY;
  646. +     h = open(filename, iomode, 0666);
  647. +     if (h < __SMALLEST_VALID_HANDLE)
  648. +         {
  649. +         return(NULL);        /* file open/create error */
  650. +         }
  651. +     if (isatty(h))
  652. +         f |= __mint ? (_IODEV | _IONBF| _IOBIN) : (_IODEV | _IONBF);
  653. +     else
  654. +         f |= _IOFBF;
  655. +     fp->_file = h;            /* file handle */
  656. +     fp->_flag = f;            /* file status flags */
  657. +     if (iomode & O_APPEND)
  658. +         (void) fseek(fp, 0L, SEEK_END);
  659. + 
  660. +     return (fp);
  661. +     }
  662. + 
  663. *** 43.1    1994/02/15 19:34:32
  664. --- fputs.c    1994/02/28 11:12:14
  665. ***************
  666. *** 4,33 ****
  667.   #include <stddef.h>
  668.   #include <assert.h>
  669.   
  670. ! int fputs(data, fp)
  671. !     register const char *data;
  672. !     register FILE *fp;
  673. !     {
  674. !     register int n = 0;
  675.       
  676. !     assert((data != NULL));
  677. !     while(*data)
  678. !         {
  679. !         if(fputc(*data++, fp) == EOF)
  680. !             return(EOF);
  681. !         ++n;
  682. !         }
  683. !     return(n);
  684. !     }
  685. ! 
  686. ! int puts(data)
  687. !     const char *data;
  688. !     {
  689. !     register int n;
  690. ! 
  691. !     assert((data != NULL));
  692. !     if(((n = fputs(data, stdout)) == EOF)
  693. !     || (fputc('\n', stdout) == EOF))
  694. !         return(EOF);
  695. !     return(++n);
  696. !     }
  697. --- 4,22 ----
  698.   #include <stddef.h>
  699.   #include <assert.h>
  700.   
  701. ! int
  702. ! fputs(data, fp)
  703. !   register const char *data;
  704. !   register FILE *fp;
  705. ! {
  706. !   register int n = 0;
  707.       
  708. !   assert((data != NULL));
  709. !   while (*data)
  710. !   {
  711. !     if (fputc(*data++, fp) == EOF)
  712. !       return (EOF);
  713. !     ++n;
  714. !   }
  715. !   return (n);
  716. ! }
  717. *** /dev/null    Mon Feb 28 07:43:04 1994
  718. --- freopen.c    Mon Feb 28 06:08:30 1994
  719. ***************
  720. *** 0 ****
  721. --- 1,65 ----
  722. + /* from Dale Schumacher's dLibs */
  723. + 
  724. + #include <stdio.h>
  725. + #include <stdlib.h>
  726. + #include <fcntl.h>
  727. + #include <unistd.h>
  728. + #include "lib.h"
  729. + 
  730. + extern int __mint;
  731. + 
  732. + /*
  733. +  * re-coded,  foobared code deleted
  734. +  *
  735. +  *    ++jrb
  736. +  */
  737. + FILE *
  738. + freopen(filename, mode, fp)
  739. +     const char *filename, *mode;
  740. +     FILE *fp;
  741. + {
  742. +     unsigned int f;
  743. +     
  744. +     if (fp == NULL)
  745. +     return NULL;
  746. +     
  747. +     f = fp->_flag;
  748. +     if ((f & (_IORW | _IOREAD | _IOWRT)) != 0)
  749. +     { /* file not closed, close it */
  750. + #if 0
  751. +         if (fflush(fp) != 0) return NULL;            /* flush err */
  752. +         if (close(fp->_file) != 0) return NULL;        /* close err */
  753. + #else
  754. +     fflush(fp);                /* ANSI says ignore errors */
  755. +     if (__mint || !(f & _IODEV))        /* leave tty's alone */
  756. +       close(fp->_file);
  757. + #endif
  758. +     }
  759. +     /* save buffer discipline and setbuf settings, and _IOWRT just for
  760. +        determinining line buffering after the next _fopen_i */
  761. +     f &= (_IOFBF | _IOLBF | _IONBF | _IOMYBUF | _IOWRT);
  762. + 
  763. +     /* open the new file according to mode */
  764. +     if ((fp = _fopen_i(filename, mode, fp)) == NULL)
  765. +     return NULL;
  766. +     if (fp->_flag & _IODEV)
  767. +     { /* we are re-opening to a tty */
  768. +     if ((f & _IOFBF) && (f & _IOWRT) && (f & _IOMYBUF))
  769. +     {   /* was a FBF & WRT & !setvbuff'ed  */
  770. +         /* reset to line buffering */
  771. +         f &= ~_IOFBF;
  772. +         f |=  _IOLBF;
  773. +     }
  774. +     }
  775. +     f &= ~_IOWRT; /* get rid of saved _IOWRT flag */
  776. +     
  777. +     /* put buffering and discipline flags in new fp->_flag */
  778. +     fp->_flag &= ~(_IONBF | _IOLBF | _IOFBF | _IOMYBUF);
  779. +     fp->_flag |= f;
  780. +     
  781. +     if (fp->_base == NULL)
  782. +       /* get new buffer if file was closed */
  783. +       _getbuf (fp);
  784. + 
  785. +     return fp;
  786. + }
  787. *** 43.1    1994/02/15 19:34:32
  788. --- fseek.c    1994/02/28 11:26:22
  789. ***************
  790. *** 5,51 ****
  791.   #include <stdio.h>
  792.   #include <unistd.h>
  793.   
  794. ! long ftell(fp)
  795. ! FILE *fp;
  796. ! {
  797. !     long rv, count = fp->_cnt, adjust = 0;
  798. !     unsigned int f = fp->_flag;
  799. ! 
  800. !     if( ((f & _IOREAD) && (!(f & _IOBIN))) ||
  801. !        (count == 0)               ||
  802. !        (f & _IONBF) )
  803. !     {
  804. !     fflush(fp);    
  805. !     rv = lseek(fp->_file, 0L, SEEK_CUR);
  806. !     }
  807. !     else
  808. !     {
  809. !     if(f & _IOREAD)
  810. !         adjust = -count;
  811. !     else if(f & (_IOWRT | _IORW))
  812. !     {
  813. !         if(f & _IOWRT)
  814. !         adjust = count;
  815. !     }
  816. !     else return -1L;
  817. ! 
  818. !     rv = lseek(fp->_file, 0L, SEEK_CUR);
  819. !     }
  820. !     return (rv < 0) ? -1L : rv + adjust;
  821. ! }
  822. ! 
  823. ! void rewind(fp)
  824. ! register FILE *fp;
  825. ! {
  826. !     fflush(fp);
  827. !     (void) lseek(fp->_file, 0L, SEEK_SET);
  828. !     fp->_flag &= ~(_IOEOF|_IOERR);
  829. ! }
  830. ! 
  831. ! int fseek(fp, offset, origin)
  832. ! FILE *fp;
  833. ! long offset;
  834. ! int origin;
  835.   {
  836.       long pos, count;
  837.       unsigned int f;
  838. --- 5,15 ----
  839.   #include <stdio.h>
  840.   #include <unistd.h>
  841.   
  842. ! int
  843. ! fseek(fp, offset, origin)
  844. !   FILE *fp;
  845. !   long offset;
  846. !   int origin;
  847.   {
  848.       long pos, count;
  849.       unsigned int f;
  850. *** 43.1    1994/02/15 19:34:32
  851. --- fsetpos.c    1994/02/28 11:29:28
  852. ***************
  853. *** 2,38 ****
  854.   
  855.   #include <stdio.h>
  856.   
  857. ! #define ERROR -1
  858.   
  859. ! int fgetpos(fp, pos)
  860. !     FILE *fp;
  861. !     fpos_t *pos;
  862. !     {
  863. !     register long rv;
  864. ! 
  865. !     rv = ftell(fp);
  866. !     if((rv >= 0) && pos)
  867. !         {
  868. !         *pos = rv;
  869. !         return(0);
  870. !         }
  871. !     return(ERROR);
  872. !     }
  873. ! 
  874. ! int fsetpos(fp, pos)
  875. !     FILE *fp;
  876. !     fpos_t *pos;
  877. !     {
  878. !     register long rv;
  879. ! 
  880. !     if(pos)
  881. !         {
  882. !         rv = fseek(fp, *pos, SEEK_SET);
  883. !         if(rv >= 0)
  884. !             {
  885. !             fp->_flag &= ~(_IOEOF|_IOERR);
  886. !             return(0);
  887. !             }
  888. !         }
  889. !     return(ERROR);
  890. !     }
  891. --- 2,22 ----
  892.   
  893.   #include <stdio.h>
  894.   
  895. ! int
  896. ! fsetpos(fp, pos)
  897. !   FILE *fp;
  898. !   fpos_t *pos;
  899. ! {
  900. !   register long rv;
  901.   
  902. !   if (pos)
  903. !   {
  904. !     rv = fseek(fp, *pos, SEEK_SET);
  905. !     if (rv >= 0)
  906. !     {
  907. !       fp->_flag &= ~(_IOEOF|_IOERR);
  908. !       return (0);
  909. !     }
  910. !   }
  911. !   return (-1);
  912. ! }
  913. *** /dev/null    Mon Feb 28 07:43:04 1994
  914. --- ftell.c    Mon Feb 28 06:23:50 1994
  915. ***************
  916. *** 0 ****
  917. --- 1,36 ----
  918. + /* something like the origonal
  919. +  * from Dale Schumacher's dLibs
  920. +  */
  921. + 
  922. + #include <stdio.h>
  923. + #include <unistd.h>
  924. + 
  925. + long
  926. + ftell(fp)
  927. +   FILE *fp;
  928. + {
  929. +   long rv, count = fp->_cnt, adjust = 0;
  930. +   unsigned int f = fp->_flag;
  931. + 
  932. +   if (((f & _IOREAD) && (!(f & _IOBIN)))
  933. +       || (count == 0)
  934. +       || (f & _IONBF))
  935. +   {
  936. +     fflush(fp);    
  937. +     rv = lseek(fp->_file, 0L, SEEK_CUR);
  938. +   }
  939. +   else
  940. +   {
  941. +     if (f & _IOREAD)
  942. +       adjust = -count;
  943. +     else if (f & (_IOWRT | _IORW))
  944. +     {
  945. +       if(f & _IOWRT)
  946. +         adjust = count;
  947. +     }
  948. +     else return -1L;
  949. + 
  950. +     rv = lseek(fp->_file, 0L, SEEK_CUR);
  951. +   }
  952. +   return (rv < 0) ? -1L : rv + adjust;
  953. + }
  954. *** /dev/null    Mon Feb 28 07:43:04 1994
  955. --- getegid.c    Mon Feb 28 07:03:30 1994
  956. ***************
  957. *** 0 ****
  958. --- 1,12 ----
  959. + #include <types.h>
  960. + #include <unistd.h>
  961. + #include <mintbind.h>
  962. + 
  963. + extern int __mint;
  964. + 
  965. + gid_t
  966. + getegid()
  967. + {
  968. +   return __mint >= 95 ? Pgetegid() : getgid();
  969. + }
  970. + 
  971. *** /dev/null    Mon Feb 28 07:43:04 1994
  972. --- geteuid.c    Mon Feb 28 07:02:50 1994
  973. ***************
  974. *** 0 ****
  975. --- 1,11 ----
  976. + #include <types.h>
  977. + #include <unistd.h>
  978. + #include <mintbind.h>
  979. + 
  980. + extern int __mint;
  981. + 
  982. + uid_t
  983. + geteuid()
  984. + {
  985. +   return __mint >= 95 ? Pgeteuid() : getuid();
  986. + }
  987. *** /dev/null    Mon Feb 28 07:43:04 1994
  988. --- getgid.c    Mon Feb 28 07:02:34 1994
  989. ***************
  990. *** 0 ****
  991. --- 1,12 ----
  992. + #include <types.h>
  993. + #include <unistd.h>
  994. + #include <mintbind.h>
  995. + 
  996. + extern int __mint;
  997. + extern gid_t __gid;
  998. + 
  999. + gid_t
  1000. + getgid()
  1001. + {
  1002. +   return __mint ? Pgetgid() : __gid;
  1003. + }
  1004. *** 43.1    1994/02/15 19:34:32
  1005. --- getpid.c    1994/02/28 11:42:08
  1006. ***************
  1007. *** 5,9 ****
  1008.   
  1009.   extern int __mint;
  1010.   
  1011. ! int getpid() { return __mint ? Pgetpid() : (int) ( ((long)_base) >> 8 ); }
  1012. ! int getppid() { return __mint ? Pgetppid() : (int) (((long)(_base->p_parent)) >> 8); }
  1013. --- 5,12 ----
  1014.   
  1015.   extern int __mint;
  1016.   
  1017. ! int
  1018. ! getpid()
  1019. ! {
  1020. !   return __mint ? Pgetpid() : (int) ( ((long)_base) >> 8 );
  1021. ! }
  1022. *** /dev/null    Mon Feb 28 07:43:04 1994
  1023. --- getppid.c    Mon Feb 28 06:41:40 1994
  1024. ***************
  1025. *** 0 ****
  1026. --- 1,12 ----
  1027. + #include <osbind.h>
  1028. + #include <unistd.h>
  1029. + #include <basepage.h>
  1030. + #include <mintbind.h>
  1031. + 
  1032. + extern int __mint;
  1033. + 
  1034. + int
  1035. + getppid()
  1036. + {
  1037. +   return __mint ? Pgetppid() : (int) (((long)(_base->p_parent)) >> 8);
  1038. + }
  1039. *** 43.1    1994/02/15 19:34:32
  1040. --- getuid.c    1994/02/28 12:01:08
  1041. ***************
  1042. *** 1,71 ****
  1043. ! #ifdef __TURBOC__
  1044. ! #include <sys\types.h>
  1045. ! #else
  1046. ! #include <sys/types.h>
  1047. ! #endif
  1048.   #include <unistd.h>
  1049.   #include <osbind.h>
  1050.   #include <mintbind.h>
  1051. - #include <errno.h>
  1052.   
  1053.   extern int __mint;
  1054.   
  1055. ! static int __uid = 0, __gid = 0;
  1056. ! 
  1057. ! uid_t getuid() { return __mint ? Pgetuid() : __uid; }
  1058. ! gid_t getgid() { return __mint ? Pgetgid() : __gid; }
  1059. ! 
  1060. ! uid_t geteuid()
  1061. ! { return __mint >= 95 ? Pgeteuid() : getuid(); }
  1062. ! 
  1063. ! gid_t getegid()
  1064. ! { return __mint >= 95 ? Pgetegid() : getgid(); }
  1065. ! 
  1066. ! int setuid(x)
  1067. !     int x;
  1068. ! {
  1069. !     long r;
  1070. ! 
  1071. !     if (__mint) {
  1072. !         r = Psetuid(x);
  1073. !         if (r < 0) {
  1074. !             errno = (int) -r;
  1075. !             return -1;
  1076. !         }
  1077. !         return 0;
  1078. !     }
  1079. !     __uid = x;
  1080. !     return 0;
  1081. ! }
  1082. ! 
  1083. ! int setgid(x)
  1084. !     int x;
  1085.   {
  1086. !     long r;
  1087. ! 
  1088. !     if (__mint) {
  1089. !         r = Psetgid(x);
  1090. !         if (r < 0) {
  1091. !             errno = (int) -r;
  1092. !             return -1;
  1093. !         }
  1094. !         return 0;
  1095. !     }
  1096. !     __gid = x;
  1097. !     return 0;
  1098. ! }
  1099. ! 
  1100. ! int setreuid(ruid,euid)
  1101. !     int ruid, euid;
  1102. ! {
  1103. !     return setuid(euid);
  1104.   }
  1105. - 
  1106. - int setregid(rgid,egid)
  1107. -     int rgid, egid;
  1108. - {
  1109. -     return setgid(egid);
  1110. - }
  1111. - 
  1112. - int seteuid(x) int x; { return setuid(x); }
  1113. - int setegid(x) int x; { return setgid(x); }
  1114. --- 1,13 ----
  1115. ! #include <types.h>
  1116.   #include <unistd.h>
  1117.   #include <osbind.h>
  1118.   #include <mintbind.h>
  1119.   
  1120.   extern int __mint;
  1121. + extern uid_t __uid;
  1122.   
  1123. ! uid_t
  1124. ! getuid()
  1125.   {
  1126. !   return __mint ? Pgetuid() : __uid;
  1127.   }
  1128. *** /dev/null    Mon Feb 28 07:43:04 1994
  1129. --- l64a.c    Mon Feb 28 04:32:22 1994
  1130. ***************
  1131. *** 0 ****
  1132. --- 1,58 ----
  1133. + #include <support.h>
  1134. + #include <errno.h>
  1135. + extern int errno;
  1136. + 
  1137. + #ifndef _COMPILER_H
  1138. + #include <compiler.h>
  1139. + #endif
  1140. + 
  1141. + static char i64a __PROTO((int i));  /* integer to base-64 char, 0x7F on error */
  1142. + 
  1143. + /* integer to base-64 char, 0x7F on error */
  1144. + static char i64a(i)
  1145. +   int i;
  1146. + {
  1147. +   char retval = (char)i;
  1148. +   
  1149. +   if ((i < 0) || (i > 63))
  1150. +   {
  1151. +     errno = EBADARG;
  1152. +     return(0x7F);
  1153. +   }
  1154. +   retval += '.';
  1155. +   if (i > 11)
  1156. +     retval += 'A' - '9' - 1;
  1157. +   if (i > 37)
  1158. +     retval += 'a' - 'Z' - 1;
  1159. +   return(retval);
  1160. + } /* End of i64a() */
  1161. + 
  1162. + /* long to base-64 string */
  1163. + char *l64a(l)
  1164. +   long l;
  1165. + {
  1166. +   static char retval[7];
  1167. +   char buffer[7], *ptr1 = buffer, *ptr2 = retval;
  1168. +   int counter = 0;
  1169. + 
  1170. +   if (l < 0)
  1171. +   {
  1172. +     errno = EBADARG;
  1173. +     return("");
  1174. +   }
  1175. +   if (l == 0)
  1176. +     return("");
  1177. +   while ((counter++ < 6) && (l > 0))
  1178. +   {
  1179. +     char val;
  1180. +     
  1181. +     if ((val = i64a((char)(l & 0x3F))) == 0x7F)
  1182. +       return(""); /* errno was set by i64a() */
  1183. +     *ptr1++ = val;
  1184. +     l >>= 6;
  1185. +   }
  1186. +   while (ptr1 > buffer)
  1187. +     *ptr2++ = *(--ptr1);
  1188. +   *ptr2 = 0x00;
  1189. +   return(retval);
  1190. + } /* End of l64a() */
  1191. *** /dev/null    Mon Feb 28 07:43:04 1994
  1192. --- labs.c    Mon Feb 28 07:17:38 1994
  1193. ***************
  1194. *** 0 ****
  1195. --- 1,13 ----
  1196. + /* return absolute values */
  1197. + #include <stdlib.h>
  1198. + 
  1199. + #ifdef labs
  1200. + #undef labs
  1201. + #endif
  1202. + 
  1203. + long
  1204. + labs(x)
  1205. +   long x;
  1206. + {
  1207. +   return x < 0 ? -x : x;
  1208. + }
  1209. *** /dev/null    Mon Feb 28 07:43:04 1994
  1210. --- ldiv.c    Mon Feb 28 05:11:00 1994
  1211. ***************
  1212. *** 0 ****
  1213. --- 1,45 ----
  1214. + /*
  1215. +  * ldiv
  1216. +  *    this one should be compat with -fpcc-struct-return
  1217. +  *
  1218. +  *    ++jrb    bammi@dsrgsun.ces.cwru.edu
  1219. +  */
  1220. + #include <stdlib.h>
  1221. + 
  1222. + #ifdef __GNUC__
  1223. + 
  1224. + long __divsi3(long, long);    /* returns: quot in d0.l  remainder in d1.l */
  1225. + 
  1226. + ldiv_t
  1227. + ldiv(long num, long denom)
  1228. + {
  1229. +     ldiv_t    result;
  1230. + 
  1231. +     __asm__ volatile("\
  1232. +          movl    %3,sp@-
  1233. +         movl    %2,sp@-
  1234. +         jsr    ___divsi3
  1235. +         addqw    #8,sp
  1236. +         movl    d0,%0
  1237. +         movl    d1,%1"
  1238. +         : "=g"(result.quot), "=g"(result.rem)
  1239. +         : "r"(num), "r"(denom)
  1240. +         ); /* compiler dependency, dont tell gcc about d0,d1 clobb */
  1241. +     return result;
  1242. + }
  1243. + 
  1244. + #else /* !__GNUC__ */
  1245. + 
  1246. + ldiv_t
  1247. + ldiv(num, denom)
  1248. + long num, denom;
  1249. + {
  1250. +     ldiv_t res;
  1251. +     
  1252. +     res.quot = num / denom;
  1253. +     res.rem = num % denom;
  1254. +     
  1255. +     return res;
  1256. + }
  1257. + 
  1258. + #endif /* !__GNUC__ */
  1259. *** 43.1    1994/02/15 19:34:32
  1260. --- lib.h    1994/02/28 14:01:22
  1261. ***************
  1262. *** 50,55 ****
  1263. --- 50,56 ----
  1264.   #ifdef __MINT__
  1265.   __EXTERN int    _scanf __PROTO((FILE *, int (*)(FILE *),
  1266.               int (*)(int, FILE *), const char *, __VA_LIST__));
  1267. + __EXTERN int    _enoent __PROTO((char *));
  1268.   #endif
  1269.   
  1270.   __EXTERN long        get_sysvar __PROTO((void *var));
  1271. ***************
  1272. *** 116,120 ****
  1273. --- 117,133 ----
  1274.   #define FH_UNKNOWN    0
  1275.   #define FH_ISATTY    1
  1276.   #define FH_ISAFILE    2
  1277. + 
  1278. + /*
  1279. +  * macro for converting a long in DOS format to one in Unix format. "x"
  1280. +  * _must_ be an lvalue!
  1281. +  */
  1282. + #define __UNIXTIME(x) (x = _unixtime( ((short *)&x)[0], ((short *)&x)[1] ))
  1283. + 
  1284. + __EXTERN int _do_lock __PROTO((int fd, int cmd, long size, int whence));
  1285. + 
  1286. + #ifdef _STDIO_H
  1287. + __EXTERN FILE *_fopen_i __PROTO((const char *, const char *, FILE *));
  1288. + #endif
  1289.   
  1290.   #endif /* _LIB_H */
  1291. *** /dev/null    Mon Feb 28 07:43:04 1994
  1292. --- puts.c    Mon Feb 28 06:12:00 1994
  1293. ***************
  1294. *** 0 ****
  1295. --- 1,18 ----
  1296. + /* from Dale Schumacher's dLibs */
  1297. + 
  1298. + #include <stdio.h>
  1299. + #include <stddef.h>
  1300. + #include <assert.h>
  1301. + 
  1302. + int
  1303. + puts(data)
  1304. +   const char *data;
  1305. + {
  1306. +   register int n;
  1307. + 
  1308. +   assert((data != NULL));
  1309. +   if (((n = fputs(data, stdout)) == EOF)
  1310. +       || (fputc('\n', stdout) == EOF))
  1311. +     return (EOF);
  1312. +   return (++n);
  1313. + }
  1314. *** 43.1    1994/02/15 19:34:32
  1315. --- regexp.c    1994/02/24 16:39:52
  1316. ***************
  1317. *** 591,596 ****
  1318. --- 591,597 ----
  1319.   
  1320.     place = opnd;            /* Op node, where operand used to be. */
  1321.     *place++ = op;
  1322. +   *place++ = '\0';
  1323.     *place = '\0';
  1324.   }
  1325.   
  1326. *** /dev/null    Mon Feb 28 07:43:04 1994
  1327. --- rewind.c    Mon Feb 28 06:25:06 1994
  1328. ***************
  1329. *** 0 ****
  1330. --- 1,16 ----
  1331. + /* something like the origonal
  1332. +  * from Dale Schumacher's dLibs
  1333. +  */
  1334. + 
  1335. + #include <stdio.h>
  1336. + #include <unistd.h>
  1337. + 
  1338. + void
  1339. + rewind(fp)
  1340. +   register FILE *fp;
  1341. + {
  1342. +   fflush(fp);
  1343. +   (void) lseek(fp->_file, 0L, SEEK_SET);
  1344. +   fp->_flag &= ~(_IOEOF|_IOERR);
  1345. + }
  1346. + 
  1347. *** /dev/null    Mon Feb 28 07:43:04 1994
  1348. --- setegid.c    Mon Feb 28 07:00:42 1994
  1349. ***************
  1350. *** 0 ****
  1351. --- 1,8 ----
  1352. + #include <unistd.h>
  1353. + 
  1354. + int
  1355. + setegid(x)
  1356. +   int x;
  1357. + {
  1358. +   return setgid(x);
  1359. + }
  1360. *** /dev/null    Mon Feb 28 07:43:04 1994
  1361. --- seteuid.c    Mon Feb 28 06:59:24 1994
  1362. ***************
  1363. *** 0 ****
  1364. --- 1,8 ----
  1365. + #include <unistd.h>
  1366. + 
  1367. + int
  1368. + seteuid(x)
  1369. +   int x;
  1370. + {
  1371. +   return setuid(x);
  1372. + }
  1373. *** /dev/null    Mon Feb 28 07:43:04 1994
  1374. --- setgid.c    Mon Feb 28 07:05:22 1994
  1375. ***************
  1376. *** 0 ****
  1377. --- 1,27 ----
  1378. + #include <types.h>
  1379. + #include <unistd.h>
  1380. + #include <osbind.h>
  1381. + #include <mintbind.h>
  1382. + #include <errno.h>
  1383. + 
  1384. + extern int __mint;
  1385. + extern gid_t __gid;
  1386. + 
  1387. + int
  1388. + setgid(x)
  1389. +   int x;
  1390. + {
  1391. +   long r;
  1392. + 
  1393. +   if (__mint) {
  1394. +     r = Psetgid(x);
  1395. +     if (r < 0) {
  1396. +       errno = (int) -r;
  1397. +       return -1;
  1398. +     }
  1399. +     return 0;
  1400. +   }
  1401. +   __gid = x;
  1402. +   return 0;
  1403. + }
  1404. + 
  1405. *** /dev/null    Mon Feb 28 07:43:04 1994
  1406. --- setregid.c    Mon Feb 28 06:58:10 1994
  1407. ***************
  1408. *** 0 ****
  1409. --- 1,9 ----
  1410. + #include <unistd.h>
  1411. + 
  1412. + int
  1413. + setregid(rgid,egid)
  1414. +   int rgid, egid;
  1415. + {
  1416. +   return setgid(egid);
  1417. + }
  1418. + 
  1419. *** /dev/null    Mon Feb 28 07:43:04 1994
  1420. --- setreuid.c    Mon Feb 28 06:58:34 1994
  1421. ***************
  1422. *** 0 ****
  1423. --- 1,9 ----
  1424. + #include <unistd.h>
  1425. + 
  1426. + int
  1427. + setreuid(ruid,euid)
  1428. +   int ruid, euid;
  1429. + {
  1430. +   return setuid(euid);
  1431. + }
  1432. + 
  1433. *** /dev/null    Mon Feb 28 07:43:04 1994
  1434. --- setuid.c    Mon Feb 28 07:04:32 1994
  1435. ***************
  1436. *** 0 ****
  1437. --- 1,26 ----
  1438. + #include <types.h>
  1439. + #include <unistd.h>
  1440. + #include <osbind.h>
  1441. + #include <mintbind.h>
  1442. + #include <errno.h>
  1443. + 
  1444. + extern int __mint;
  1445. + extern uid_t __uid;
  1446. + 
  1447. + int
  1448. + setuid(x)
  1449. +   int x;
  1450. + {
  1451. +   long r;
  1452. + 
  1453. +   if (__mint) {
  1454. +     r = Psetuid(x);
  1455. +     if (r < 0) {
  1456. +       errno = (int) -r;
  1457. +       return -1;
  1458. +     }
  1459. +     return 0;
  1460. +   }
  1461. +   __uid = x;
  1462. +   return 0;
  1463. + }
  1464. *** /dev/null    Mon Feb 28 07:43:04 1994
  1465. --- uidgid.c    Mon Feb 28 06:50:42 1994
  1466. ***************
  1467. *** 0 ****
  1468. --- 1,5 ----
  1469. + #include <types.h>
  1470. + 
  1471. + uid_t __uid = 0;
  1472. + gid_t __gid = 0;
  1473. + 
  1474. *** 43.1    1994/02/15 19:34:32
  1475. --- Bugs    1994/02/27 12:49:50
  1476. ***************
  1477. *** 39,50 ****
  1478.     definitions from the include file.  That should be easier to track down
  1479.     than a hung compiler, at least. -entropy]
  1480.   
  1481. - abort.c: ++entropy
  1482. -   If my understanding is correct, abort() should unmask SIGABRT, and also
  1483. -   set SIGABRT's signal handler to SIG_DFL if it was SIG_IGN, before raising
  1484. -   the signal.  Would someone with a copy of the POSIX spec please look into
  1485. -   this?
  1486. - 
  1487.   access.c: ++entropy
  1488.     I think my "superuser can access anything" assumption is wrong, especially
  1489.     if checking execute permissions.
  1490. --- 39,44 ----
  1491. ***************
  1492. *** 150,160 ****
  1493.   open.c: ++nox
  1494.     Should open() do a TIOCSPGRP too when it Fforces the control tty?
  1495.     I think, but i'm not 100% sure...
  1496. !   Currently errno is set to EPATH (ENOTDIR) in some cases where UNIX would
  1497. !   give EFILNF (ENOENT).  The GEMDOS error codes should be translated by the
  1498. !   library in these cases.  This affects open() and creat(), and possibly
  1499. !   other functions as well (check access(),  unlink(), mkdir(), anything that
  1500. !   accesses files by name).
  1501.   
  1502.   pgrp.c: ++entropy
  1503.     The setsid() function never really disassociates the controlling tty from
  1504. --- 144,150 ----
  1505.   open.c: ++nox
  1506.     Should open() do a TIOCSPGRP too when it Fforces the control tty?
  1507.     I think, but i'm not 100% sure...
  1508. !   [The kernel does this for us automagically. -entropy]
  1509.   
  1510.   pgrp.c: ++entropy
  1511.     The setsid() function never really disassociates the controlling tty from
  1512. ***************
  1513. *** 177,187 ****
  1514.   scanf.c: ++jrb
  1515.     Evidently loses big time.  Run Gcctests and find out what's what.
  1516.   
  1517. ! sigactio.c: ++nox@jelal.north.de, ++entropy
  1518. !   sigblock() could be declared int at least #ifndef __MSHORT__.  The
  1519. !   functions sigpending(), sigprocmask(), and sigsuspend() have not been
  1520. !   tested.  The other new POSIX sig*() functions have been tested but not
  1521. !   exhaustively.
  1522.   
  1523.   sleep.c: ++boender, ++entropy
  1524.     sleep() will never sleep for more than LONG_MAX / 1000 (approximately 2
  1525. --- 167,177 ----
  1526.   scanf.c: ++jrb
  1527.     Evidently loses big time.  Run Gcctests and find out what's what.
  1528.   
  1529. ! sigactio.c, sigblock.c: ++nox@jelal.north.de, ++entropy
  1530. !   sigblock() and sigsetmask() could be declared int at least #ifndef
  1531. !   __MSHORT__.  The functions sigpending(), sigprocmask(), and sigsuspend()
  1532. !   have not been tested.  The other new POSIX sig*() functions have been
  1533. !   tested but not exhaustively.
  1534.   
  1535.   sleep.c: ++boender, ++entropy
  1536.     sleep() will never sleep for more than LONG_MAX / 1000 (approximately 2
  1537. ***************
  1538. *** 226,231 ****
  1539. --- 216,223 ----
  1540.     tfork() doesn't know about -mbaserel, had to save a4 (base pointer)
  1541.     myself for the child.  (and all this only because we still don't have a
  1542.     real vfork...)
  1543. +   [There's now some code that may fix this, but I've only tested it
  1544. +   briefly. -entropy]
  1545.   
  1546.   types.h: ++entropy
  1547.     Need ssize_t for POSIX compliance.
  1548. *** 43.1    1994/02/15 19:34:32
  1549. --- Changelog    1994/03/01 05:05:10
  1550. ***************
  1551. *** 4,9 ****
  1552. --- 4,605 ----
  1553.   Changes are listed in *reverse* order, most recent changes being
  1554.   first.
  1555.   
  1556. + PATCHLEVEL44::
  1557. + 
  1558. + ***** a64l.c
  1559. + ----------------------------
  1560. + revision 43.2    
  1561. + date: 1994/02/28 13:27:40;  author: entropy;  state: Exp;  lines: +0 -49
  1562. + broke out functions
  1563. + =============================================================================
  1564. + ***** abort.c
  1565. + ----------------------------
  1566. + revision 43.2    
  1567. + date: 1994/02/27 13:16:42;  author: entropy;  state: Exp;  lines: +9 -7
  1568. + A possibly more ANSI/POSIX compliant abort().
  1569. + =============================================================================
  1570. + ***** abs.c
  1571. + ----------------------------
  1572. + revision 43.2    
  1573. + date: 1994/02/28 13:33:08;  author: entropy;  state: Exp;  lines: +4 -9
  1574. + broke out functions
  1575. + =============================================================================
  1576. + ***** atoi.c
  1577. + ----------------------------
  1578. + revision 43.2    
  1579. + date: 1994/02/28 13:33:32;  author: entropy;  state: Exp;
  1580. + NEW file, broken out from atol.c
  1581. + =============================================================================
  1582. + ***** atol.c
  1583. + ----------------------------
  1584. + revision 43.2    
  1585. + date: 1994/02/28 13:34:10;  author: entropy;  state: Exp;  lines: +2 -8
  1586. + broke out functions
  1587. + =============================================================================
  1588. + ***** chmod.c
  1589. + ----------------------------
  1590. + revision 43.2    
  1591. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +2 -24
  1592. + broke out functions
  1593. + =============================================================================
  1594. + ***** chown.c
  1595. + ----------------------------
  1596. + revision 43.2    
  1597. + date: 1994/02/28 18:37:20;  author: entropy;  state: Exp;
  1598. + NEW file, broken out from chmod.c
  1599. + =============================================================================
  1600. + ***** div.c
  1601. + ----------------------------
  1602. + revision 43.2    
  1603. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +3 -32
  1604. + broke out functions
  1605. + =============================================================================
  1606. + ***** fgetpos.c
  1607. + ----------------------------
  1608. + revision 43.2    
  1609. + date: 1994/02/28 13:50:12;  author: entropy;  state: Exp;
  1610. + NEW file, broken out from fsetpos.c
  1611. + =============================================================================
  1612. + ***** fopen.c
  1613. + ----------------------------
  1614. + revision 43.2    
  1615. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +20 -146
  1616. + broke out functions
  1617. + =============================================================================
  1618. + ***** fopen_i.c
  1619. + ----------------------------
  1620. + revision 43.2    
  1621. + date: 1994/02/28 13:46:12;  author: entropy;  state: Exp;
  1622. + NEW file, broken out from fopen.c
  1623. + =============================================================================
  1624. + ***** fputs.c
  1625. + ----------------------------
  1626. + revision 43.2    
  1627. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +15 -26
  1628. + broke out functions
  1629. + =============================================================================
  1630. + ***** freopen.c
  1631. + ----------------------------
  1632. + revision 43.2    
  1633. + date: 1994/02/28 13:46:12;  author: entropy;  state: Exp;
  1634. + NEW file, broken out from fopen.c
  1635. + =============================================================================
  1636. + ***** fseek.c
  1637. + ----------------------------
  1638. + revision 43.2    
  1639. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +5 -41
  1640. + broke out functions
  1641. + =============================================================================
  1642. + ***** fsetpos.c
  1643. + ----------------------------
  1644. + revision 43.2    
  1645. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +17 -33
  1646. + broke out functions
  1647. + =============================================================================
  1648. + ***** ftell.c
  1649. + ----------------------------
  1650. + revision 43.2    
  1651. + date: 1994/02/28 13:49:16;  author: entropy;  state: Exp;
  1652. + NEW file, broken out from fseek.c
  1653. + =============================================================================
  1654. + ***** getegid.c
  1655. + ----------------------------
  1656. + revision 43.2    
  1657. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1658. + NEW file, broken out from getuid.c
  1659. + =============================================================================
  1660. + ***** geteuid.c
  1661. + ----------------------------
  1662. + revision 43.2    
  1663. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1664. + NEW file, broken out from getuid.c
  1665. + =============================================================================
  1666. + ***** getgid.c
  1667. + ----------------------------
  1668. + revision 43.2    
  1669. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1670. + NEW file, broken out from getuid.c
  1671. + =============================================================================
  1672. + ***** getpid.c
  1673. + ----------------------------
  1674. + revision 43.2    
  1675. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +5 -2
  1676. + broke out functions
  1677. + =============================================================================
  1678. + ***** getppid.c
  1679. + ----------------------------
  1680. + revision 43.2    
  1681. + date: 1994/02/28 13:50:12;  author: entropy;  state: Exp;
  1682. + NEW file, broken out from getpid.c
  1683. + =============================================================================
  1684. + ***** getuid.c
  1685. + ----------------------------
  1686. + revision 43.2    
  1687. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +5 -63
  1688. + broke out functions
  1689. + =============================================================================
  1690. + ***** l64a.c
  1691. + ----------------------------
  1692. + revision 43.2    
  1693. + date: 1994/02/28 13:27:04;  author: entropy;  state: Exp;
  1694. + NEW file, broke out from a64l.c.
  1695. + =============================================================================
  1696. + ***** labs.c
  1697. + ----------------------------
  1698. + revision 43.2    
  1699. + date: 1994/02/28 13:28:50;  author: entropy;  state: Exp;
  1700. + NEW file, formerly in abs.c
  1701. + =============================================================================
  1702. + ***** ldiv.c
  1703. + ----------------------------
  1704. + revision 43.2    
  1705. + date: 1994/02/28 13:42:52;  author: entropy;  state: Exp;
  1706. + NEW file, broken out from div.c
  1707. + =============================================================================
  1708. + ***** lib.h
  1709. + ----------------------------
  1710. + revision 43.3    
  1711. + date: 1994/02/28 14:03:04;  author: entropy;  state: Exp;  lines: +12 -0
  1712. + add some prototypes
  1713. + ----------------------------
  1714. + revision 43.2
  1715. + date: 1994/02/27 11:51:30;  author: entropy;  state: Exp;  lines: +1 -0
  1716. + add _enoent() prototype.
  1717. + =============================================================================
  1718. + ***** puts.c
  1719. + ----------------------------
  1720. + revision 43.2    
  1721. + date: 1994/02/28 13:47:38;  author: entropy;  state: Exp;
  1722. + NEW file, broken out from fputs.c
  1723. + =============================================================================
  1724. + ***** regexp.c
  1725. + ----------------------------
  1726. + revision 43.2    
  1727. + date: 1994/02/24 16:41:16;  author: schwab;  state: Exp;  lines: +1 -0
  1728. + regcomp fails to compile "(a+|b)*" (from libtest/tregex.c).  The bug
  1729. + is an uninitialized byte in reginsert.
  1730. + =============================================================================
  1731. + ***** rewind.c
  1732. + ----------------------------
  1733. + revision 43.2    
  1734. + date: 1994/02/28 13:49:16;  author: entropy;  state: Exp;
  1735. + NEW file, broken out from fseek.c
  1736. + =============================================================================
  1737. + ***** setegid.c
  1738. + ----------------------------
  1739. + revision 43.2    
  1740. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1741. + NEW file, broken out from getuid.c
  1742. + =============================================================================
  1743. + ***** seteuid.c
  1744. + ----------------------------
  1745. + revision 43.2    
  1746. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1747. + NEW file, broken out from getuid.c
  1748. + =============================================================================
  1749. + ***** setgid.c
  1750. + ----------------------------
  1751. + revision 43.2    
  1752. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1753. + NEW file, broken out from getuid.c
  1754. + =============================================================================
  1755. + ***** setregid.c
  1756. + ----------------------------
  1757. + revision 43.2    
  1758. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1759. + NEW file, broken out from getuid.c
  1760. + =============================================================================
  1761. + ***** setreuid.c
  1762. + ----------------------------
  1763. + revision 43.2    
  1764. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1765. + NEW file, broken out from getuid.c
  1766. + =============================================================================
  1767. + ***** setuid.c
  1768. + ----------------------------
  1769. + revision 43.2    
  1770. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1771. + NEW file, broken out from getuid.c
  1772. + =============================================================================
  1773. + ***** uidgid.c
  1774. + ----------------------------
  1775. + revision 43.2    
  1776. + date: 1994/02/28 13:52:34;  author: entropy;  state: Exp;
  1777. + NEW file, broken out from getuid.c
  1778. + =============================================================================
  1779. + ***** include/PatchLev.h
  1780. + ----------------------------
  1781. + revision 43.2    
  1782. + date: 1994/02/15 20:33:52;  author: entropy;  state: Exp;  lines: +1 -1
  1783. + -
  1784. + =============================================================================
  1785. + ***** include/ioctl.h
  1786. + ----------------------------
  1787. + revision 43.5    
  1788. + date: 1994/02/27 09:42:40;  author: entropy;  state: Exp;  lines: +13 -8
  1789. + Add some more TIOCM_* definitions
  1790. + ----------------------------
  1791. + revision 43.4
  1792. + date: 1994/02/21 19:31:36;  author: entropy;  state: Exp;  lines: +29 -0
  1793. + Catch up with MiNT's file.h:  Add cursor ioctl's and some missing
  1794. + process ioctl's.
  1795. + ----------------------------
  1796. + revision 43.3
  1797. + date: 1994/02/21 19:20:24;  author: entropy;  state: Exp;  lines: +9 -0
  1798. + Add TIOCMGET (faked) and related bitmasks.
  1799. + ----------------------------
  1800. + revision 43.2
  1801. + date: 1994/02/19 14:25:04;  author: entropy;  state: Exp;  lines: +11 -9
  1802. + Added TIOCSDTR, TIOCCDTR and cleaned up a bit.
  1803. + =============================================================================
  1804. + ***** include/mintbind.h
  1805. + ----------------------------
  1806. + revision 43.2    
  1807. + date: 1994/02/26 08:45:42;  author: entropy;  state: Exp;  lines: +8 -0
  1808. + Add new MiNT system calls: Tmalarm(), Psigintr(), Suptime().
  1809. + All are unofficial and subject to change.
  1810. + =============================================================================
  1811. + ***** include/ostruct.h
  1812. + ----------------------------
  1813. + revision 43.2    
  1814. + date: 1994/02/22 17:47:58;  author: entropy;  state: Exp;  lines: +4 -0
  1815. + Complete the _PARAM structure used with Initmous().
  1816. + =============================================================================
  1817. + ***** cfgetisp.c
  1818. + ----------------------------
  1819. + revision 43.2    
  1820. + date: 1994/02/28 13:38:48;  author: entropy;  state: Exp;
  1821. + NEW file, previously in cfspeed.c
  1822. + =============================================================================
  1823. + ***** cfgetosp.c
  1824. + ----------------------------
  1825. + revision 43.2    
  1826. + date: 1994/02/28 13:38:48;  author: entropy;  state: Exp;
  1827. + NEW file, previously in cfspeed.c
  1828. + =============================================================================
  1829. + ***** cfsetisp.c
  1830. + ----------------------------
  1831. + revision 43.2    
  1832. + date: 1994/02/28 13:38:48;  author: entropy;  state: Exp;
  1833. + NEW file, previously in cfspeed.c
  1834. + =============================================================================
  1835. + ***** cfsetosp.c
  1836. + ----------------------------
  1837. + revision 43.2    
  1838. + date: 1994/02/28 13:38:48;  author: entropy;  state: Exp;
  1839. + NEW file, previously in cfspeed.c
  1840. + =============================================================================
  1841. + ***** closedir.c
  1842. + ----------------------------
  1843. + revision 43.2    
  1844. + date: 1994/02/28 13:41:04;  author: entropy;  state: Exp;
  1845. + NEW file, broken out from dirent.c
  1846. + =============================================================================
  1847. + ***** do_lock.c
  1848. + ----------------------------
  1849. + revision 43.2    
  1850. + date: 1994/02/28 13:55:50;  author: entropy;  state: Exp;
  1851. + NEW file, broken out from lockf.c
  1852. + =============================================================================
  1853. + ***** do_stat.c
  1854. + ----------------------------
  1855. + revision 43.3    
  1856. + date: 1994/02/28 14:42:02;  author: entropy;  state: Exp;  lines: +2 -0
  1857. + *** empty log message ***
  1858. + ----------------------------
  1859. + revision 43.2
  1860. + date: 1994/02/28 13:24:18;  author: entropy;  state: Exp;
  1861. + NEW file, broken out from stat.c
  1862. + =============================================================================
  1863. + ***** dup.c
  1864. + ----------------------------
  1865. + revision 43.2    
  1866. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +2 -26
  1867. + broke out functions
  1868. + =============================================================================
  1869. + ***** dup2.c
  1870. + ----------------------------
  1871. + revision 43.2    
  1872. + date: 1994/02/28 13:42:52;  author: entropy;  state: Exp;
  1873. + NEW file, broke out from dup.c
  1874. + =============================================================================
  1875. + ***** enoent.c
  1876. + ----------------------------
  1877. + revision 43.4    
  1878. + date: 1994/02/28 08:40:02;  author: entropy;  state: Exp;  lines: +1 -1
  1879. + Fix Fxattr() call (0 == follow links).
  1880. + ----------------------------
  1881. + revision 43.3
  1882. + date: 1994/02/28 02:04:10;  author: entropy;  state: Exp;  lines: +7 -1
  1883. + block signals during critical portions of the code.
  1884. + ----------------------------
  1885. + revision 43.2
  1886. + date: 1994/02/27 11:46:50;  author: entropy;  state: Exp;
  1887. + NEW file:  function to determine if an error should have been ENOENT
  1888. + instead of ENOTDIR (UNIX and GEMDOS have different ideas on this).
  1889. + =============================================================================
  1890. + ***** execl.c
  1891. + ----------------------------
  1892. + revision 43.2    
  1893. + date: 1994/02/28 13:44:34;  author: entropy;  state: Exp;
  1894. + NEW file, broken out from exec.c
  1895. + =============================================================================
  1896. + ***** execle.c
  1897. + ----------------------------
  1898. + revision 43.2    
  1899. + date: 1994/02/28 13:44:34;  author: entropy;  state: Exp;
  1900. + NEW file, broken out from exec.c
  1901. + =============================================================================
  1902. + ***** execv.c
  1903. + ----------------------------
  1904. + revision 43.2    
  1905. + date: 1994/02/28 13:44:34;  author: entropy;  state: Exp;
  1906. + NEW file, broken out from exec.c
  1907. + =============================================================================
  1908. + ***** execve.c
  1909. + ----------------------------
  1910. + revision 43.2    
  1911. + date: 1994/02/28 13:44:34;  author: entropy;  state: Exp;
  1912. + NEW file, broken out from exec.c
  1913. + =============================================================================
  1914. + ***** flock.c
  1915. + ----------------------------
  1916. + revision 43.2    
  1917. + date: 1994/02/28 13:55:50;  author: entropy;  state: Exp;
  1918. + NEW file, broken out from lockf.c
  1919. + =============================================================================
  1920. + ***** fscanf.c
  1921. + ----------------------------
  1922. + revision 43.2    
  1923. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +0 -17
  1924. + broke out functions
  1925. + =============================================================================
  1926. + ***** fstat.c
  1927. + ----------------------------
  1928. + revision 43.3    
  1929. + date: 1994/02/28 14:02:36;  author: entropy;  state: Exp;  lines: +2 -0
  1930. + *** empty log message ***
  1931. + ----------------------------
  1932. + revision 43.2
  1933. + date: 1994/02/28 13:24:18;  author: entropy;  state: Exp;
  1934. + NEW file broken out from stat.c
  1935. + =============================================================================
  1936. + ***** getcwd.c
  1937. + ----------------------------
  1938. + revision 43.2    
  1939. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +0 -13
  1940. + broke out functions
  1941. + =============================================================================
  1942. + ***** getgroup.c
  1943. + ----------------------------
  1944. + revision 43.2    
  1945. + date: 1994/02/28 11:38:48;  author: entropy;  state: Exp;  lines: +0 -26
  1946. + Stripped out RCS header.
  1947. + =============================================================================
  1948. + ***** getwd.c
  1949. + ----------------------------
  1950. + revision 43.3    
  1951. + date: 1994/02/28 14:55:16;  author: entropy;  state: Exp;  lines: +1 -0
  1952. + *** empty log message ***
  1953. + ----------------------------
  1954. + revision 43.2
  1955. + date: 1994/02/28 13:50:12;  author: entropy;  state: Exp;
  1956. + NEW file, broken out from getcwd.c
  1957. + =============================================================================
  1958. + ***** inode.c
  1959. + ----------------------------
  1960. + revision 43.2    
  1961. + date: 1994/02/28 13:24:18;  author: entropy;  state: Exp;
  1962. + NEW file, broken out from stat.c
  1963. + =============================================================================
  1964. + ***** ioctl.c
  1965. + ----------------------------
  1966. + revision 43.4    
  1967. + date: 1994/02/21 19:20:52;  author: entropy;  state: Exp;  lines: +62 -27
  1968. + Add TIOCMGET (only works on /dev/modem1, requires MiNT 1.10
  1969. + (needs valid st_rdev from FSTAT).
  1970. + ----------------------------
  1971. + revision 43.3
  1972. + date: 1994/02/19 15:05:00;  author: entropy;  state: Exp;  lines: +76 -57
  1973. + Use switch instead of cascading if's.
  1974. + ----------------------------
  1975. + revision 43.2
  1976. + date: 1994/02/19 14:41:50;  author: entropy;  state: Exp;  lines: +24 -0
  1977. + Add TIOCCDTR and TIOCSDTR.
  1978. + =============================================================================
  1979. + ***** isatty.c
  1980. + ----------------------------
  1981. + revision 43.3    
  1982. + date: 1994/02/28 15:00:50;  author: entropy;  state: Exp;  lines: +1 -0
  1983. + *** empty log message ***
  1984. + ----------------------------
  1985. + revision 43.2
  1986. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +3 -44
  1987. + broke out functions
  1988. + =============================================================================
  1989. + ***** isctty.c
  1990. + ----------------------------
  1991. + revision 43.2    
  1992. + date: 1994/02/28 13:55:16;  author: entropy;  state: Exp;
  1993. + NEW file, broken out from isatty.c
  1994. + =============================================================================
  1995. + ***** lockf.c
  1996. + ----------------------------
  1997. + revision 43.2    
  1998. + date: 1994/02/28 13:36:30;  author: entropy;  state: Exp;  lines: +3 -79
  1999. + broke out functions
  2000. + =============================================================================
  2001. + ***** lstat.c
  2002. + ----------------------------
  2003. + revision 43.3    
  2004. + date: 1994/02/28 14:02:36;  author: entropy;  state: Exp;  lines: +2 -0
  2005. + *** empty log message ***
  2006. + ----------------------------
  2007. + revision 43.2
  2008. + date: 1994/02/28 13:24:18;  author: entropy;  state: Exp;
  2009. + NEW file, broken out from stat.c
  2010. + =============================================================================
  2011. + ***** mincl
  2012. + ----------------------------
  2013. + revision 43.3    
  2014. + date: 1994/02/28 19:38:04;  author: entropy;  state: Exp;  lines: +34 -18
  2015. + *** empty log message ***
  2016. + ----------------------------
  2017. + revision 43.2
  2018. + date: 1994/02/28 02:00:32;  author: entropy;  state: Exp;  lines: +1 -0
  2019. + *** empty log message ***
  2020. + =============================================================================
  2021. + ***** open.c
  2022. + ----------------------------
  2023. + revision 43.3    
  2024. + date: 1994/02/27 14:08:02;  author: entropy;  state: Exp;  lines: +1 -1
  2025. + *** empty log message ***
  2026. + ----------------------------
  2027. + revision 43.2
  2028. + date: 1994/02/27 12:04:08;  author: entropy;  state: Exp;  lines: +3 -1
  2029. + do _enoent() conversion.
  2030. + =============================================================================
  2031. + ***** opendir.c
  2032. + ----------------------------
  2033. + revision 43.2    
  2034. + date: 1994/02/28 13:41:04;  author: entropy;  state: Exp;
  2035. + NEW file, broken out from dirent.c
  2036. + =============================================================================
  2037. + ***** readdir.c
  2038. + ----------------------------
  2039. + revision 43.2    
  2040. + date: 1994/02/28 13:41:04;  author: entropy;  state: Exp;
  2041. + NEW file, broken out from dirent.c
  2042. + =============================================================================
  2043. + ***** rewinddi.c
  2044. + ----------------------------
  2045. + revision 43.2    
  2046. + date: 1994/02/28 13:41:04;  author: entropy;  state: Exp;
  2047. + NEW file, broken out from dirent.c
  2048. + =============================================================================
  2049. + ***** scanf.c
  2050. + ----------------------------
  2051. + revision 43.2    
  2052. + date: 1994/02/24 16:44:30;  author: schwab;  state: Exp;  lines: +6 -1
  2053. + With the last change in scanf.c i have introduced a new bug: now
  2054. + sscanf("0", "%x", &i) fails!
  2055. + =============================================================================
  2056. + ***** seekdir.c
  2057. + ----------------------------
  2058. + revision 43.2    
  2059. + date: 1994/02/28 13:41:04;  author: entropy;  state: Exp;
  2060. + NEW file, broken out from dirent.c
  2061. + =============================================================================
  2062. + ***** stat.c
  2063. + ----------------------------
  2064. + revision 43.4    
  2065. + date: 1994/02/28 15:34:16;  author: entropy;  state: Exp;  lines: +2 -0
  2066. + *** empty log message ***
  2067. + ----------------------------
  2068. + revision 43.3
  2069. + date: 1994/02/28 13:26:12;  author: entropy;  state: Exp;  lines: +1 -326
  2070. + broke out functions
  2071. + ----------------------------
  2072. + revision 43.2
  2073. + date: 1994/02/27 11:51:00;  author: entropy;  state: Exp;  lines: +3 -0
  2074. + do _enoent() translation.
  2075. + =============================================================================
  2076. + ***** sync.c
  2077. + ----------------------------
  2078. + revision 43.3    
  2079. + date: 1994/02/28 02:19:50;  author: entropy;  state: Exp;  lines: +1 -0
  2080. + Include <string.h> for strcpy() prototype.
  2081. + ----------------------------
  2082. + revision 43.2
  2083. + date: 1994/02/19 12:57:34;  author: dsb;  state: Exp;  lines: +12 -6
  2084. + Fix for sozobon compatibility.
  2085. + =============================================================================
  2086. + ***** tcdrain.c
  2087. + ----------------------------
  2088. + revision 43.2    
  2089. + date: 1994/02/19 13:07:18;  author: entropy;  state: Exp;  lines: +22 -3
  2090. + A better tcdrain() using TIOCOUTQ in MiNT 1.10.
  2091. + =============================================================================
  2092. + ***** tcflush.c
  2093. + ----------------------------
  2094. + revision 43.2    
  2095. + date: 1994/02/19 12:23:38;  author: entropy;  state: Exp;  lines: +1 -1
  2096. + Bug fix: specify the *address* of the bitmask of the type of flush,
  2097. + not the bitmask itself.
  2098. + =============================================================================
  2099. + ***** telldir.c
  2100. + ----------------------------
  2101. + revision 43.2    
  2102. + date: 1994/02/28 13:41:04;  author: entropy;  state: Exp;
  2103. + NEW file, broken out from dirent.c
  2104. + =============================================================================
  2105. + ***** unlink.c
  2106. + ----------------------------
  2107. + revision 43.2    
  2108. + date: 1994/02/27 11:56:12;  author: entropy;  state: Exp;  lines: +2 -0
  2109. + do _enoent() conversion.
  2110. + =============================================================================
  2111. + ***** vfscanf.c
  2112. + ----------------------------
  2113. + revision 43.2    
  2114. + date: 1994/02/28 13:48:16;  author: entropy;  state: Exp;
  2115. + NEW file, broken out from fscanf.c
  2116. + =============================================================================
  2117. + ***** vscanf.c
  2118. + ----------------------------
  2119. + revision 43.2    
  2120. + date: 1994/02/28 13:48:16;  author: entropy;  state: Exp;
  2121. + NEW file, broken out from fscanf.c
  2122. + =============================================================================
  2123. + ***** purec/Makefile
  2124. + ----------------------------
  2125. + revision 43.2    
  2126. + date: 1994/02/28 17:59:16;  author: entropy;  state: Exp;  lines: +32 -18
  2127. + Add new targets.
  2128. + =============================================================================
  2129. + ***** purec/mintlib.prj
  2130. + ----------------------------
  2131. + revision 43.2    
  2132. + date: 1994/02/28 18:13:42;  author: entropy;  state: Exp;  lines: +46 -3
  2133. + Add new targets.
  2134. + =============================================================================
  2135. + ***** sozobon/makefile
  2136. + ----------------------------
  2137. + revision 43.3    
  2138. + date: 1994/02/28 17:41:18;  author: entropy;  state: Exp;  lines: +45 -32
  2139. + add new targets
  2140. + ----------------------------
  2141. + revision 43.2
  2142. + date: 1994/02/19 12:58:24;  author: dsb;  state: Exp;  lines: +28 -13
  2143. + Updated for PL43.
  2144. + =============================================================================
  2145. + ***** sozobon/readme
  2146. + ----------------------------
  2147. + revision 43.2    
  2148. + date: 1994/02/19 12:58:44;  author: dsb;  state: Exp;  lines: +7 -10
  2149. + Updated for PL43.
  2150. + =============================================================================
  2151. + 
  2152.   PATCHLEVEL43::
  2153.   
  2154.   ***** libgcc2.c
  2155. *** 43.1    1994/02/15 19:34:32
  2156. --- Files    1994/02/28 13:22:14
  2157. ***************
  2158. *** 6,59 ****
  2159.   _mulsf3.cpp   _mulsi3.s        _negdf2.s      _negsf2.s    _normdf.cpp \
  2160.   _normsf.cpp   _truncdf.cpp  _udivmod.s      _umulsi3.s    a64l.c \
  2161.   abort.c          abs.c        access.c      alglobal.c    alloca.cpp \
  2162. ! alphasor.c    atof.c        atol.c      bblink.c    bcmp.c \
  2163. ! bcopy.cpp     binmode.c        bsearch.c      buffindf.c    bzero.cpp \
  2164. ! calloc.c      chdir.c        chmod.c      ctermid.c    ctime.c \
  2165. ! ctype.c          cuserid.c        defmode.c      difftime.c    div.c \
  2166. ! div.cpp          doprnt.c        eprintf.c      errbase.h    fclose.c \
  2167. ! fdopen.c      fflush.c        ffs.c      fgetc.c    fgets.c \
  2168. ! filbuf.c      findfile.c    flonum.h      fopen.c    fprintf.c \
  2169. ! fputc.c          fputs.c        fread.c      frexp.cpp    frwbin.c \
  2170. ! fseek.c          fsetpos.c        ftw.c      fungetc.c    fwrite.c \
  2171. ! gbl-ctors.h   getbuf.c        getenv.c      getlogin.c    getopt.c \
  2172. ! getpass.c     getpid.c        getpw.c      gets.c    getuid.c \
  2173.   getw.c          gmon.c        gnulib2.c      grp.c        ic.c \
  2174. ! ig.c          il.c        ip.c      iw.c        ldexp.cpp \
  2175. ! lib.h          libgcc1.c        libgcc2.c      linea.c    localtim.c \
  2176. ! longlong.h    lseek.c        ltoa.c      malloc.c    memccpy.c \
  2177. ! memchr.c      memcmp.c        mktemp.c      modf.cpp    nlist.c \
  2178. ! obstack.c     perror.c        pgrp.c      printf.c    psignal.c \
  2179. ! putenv.c      qsort.c        raise.c      rand.c    random.c \
  2180. ! realloc.c     regexp.c        regsup.c      sbrk.c    setbuf.c \
  2181. ! setjmp.cpp    setlocal.c    setvbuf.c      sgtty.c    siglist.c \
  2182. ! sprintf.c     stksiz.c        strcat.c      strchr.c    strcmp.c \
  2183. ! strcoll.c     strcpy.c        strcspn.c      strdup.c    strerror.c \
  2184. ! strftime.c    stricmp.c        strlen.c      strlwr.c    strncat.c \
  2185. ! strncmp.c     strncpy.c        strnicmp.c      strpbrk.c    strrchr.c \
  2186. ! strrev.c      strspn.c        strstr.c      strtok.c    strtol.c \
  2187. ! strtoul.c     strupr.c        system.c      sysvar.c    textio.c \
  2188. ! time.c          timeoday.c    tmpfile.c      tmpnam.c    toxxx.c \
  2189. ! utime.c          vfprintf.c    vprintf.c      wcmb.c    wcscat.c \
  2190. ! wcscmp.c      wcscpy.c        wcslen.c      wnull.c \
  2191.   
  2192.   MINTLIB= \
  2193. ! Makefile      alarm.c        atexit.c      cfspeed.c    clock.c \
  2194. ! close.c          console.c        crt0.cpp      crtinit.c    dirent.c \
  2195. ! dup.c          exec.c        execp.c      fcntl.c    fopenp.c \
  2196. ! fork.c          fscanf.c        getcwd.c      getdtabl.c    getgroup.c \
  2197. ! gethostn.c    getpages.c    getrusag.c      heapbase.c    ident.c \
  2198. ! inistack.c    initsig.c        ioctl.c      isatty.c    kill.c \
  2199. ! killpg.c      link.c        lockf.c      main.c    mincl \
  2200. ! mkdir.c          mkfifo.c        mknod.c      nice.c    open.c \
  2201. ! osbind.cpp    pause.c        pipe.c      popen.c    putpwent.c \
  2202. ! read.c          rename.c        rmdir.c      scandir.c    scanf.c \
  2203.   select.c      setrlimi.c    sigactio.c      sigblock.c    signal.c \
  2204.   sleep.c          spawn.c        spawnve.c      spawnvp.c    sscanf.c \
  2205.   stat.c          statfs.c        symlink.c      sync.c    sysconf.c \
  2206.   tcattr.c      tcbreak.c        tcdrain.c      tcflow.c    tcflush.c \
  2207. ! tcpgrp.c      thread.c        times.c      truncate.c    ttyname.c \
  2208. ! uname.c          unlink.c        unx2dos.c      utmp.c    vfork.cpp \
  2209. ! wait.c          wait3.c        waitpid.c      write.c    wtmp.c \
  2210.   
  2211.   MINTLIB_NOCL= \
  2212.   AUTHORS          Bugs        Changelog      Copyright    Files \
  2213. --- 6,69 ----
  2214.   _mulsf3.cpp   _mulsi3.s        _negdf2.s      _negsf2.s    _normdf.cpp \
  2215.   _normsf.cpp   _truncdf.cpp  _udivmod.s      _umulsi3.s    a64l.c \
  2216.   abort.c          abs.c        access.c      alglobal.c    alloca.cpp \
  2217. ! alphasor.c    atof.c        atoi.c      atol.c    bblink.c \
  2218. ! bcmp.c          bcopy.cpp        binmode.c      bsearch.c    buffindf.c \
  2219. ! bzero.cpp     calloc.c        chdir.c      chmod.c    chown.c \
  2220. ! ctermid.c     ctime.c        ctype.c      cuserid.c    defmode.c \
  2221. ! difftime.c    div.c        div.cpp      doprnt.c    eprintf.c \
  2222. ! errbase.h     fclose.c        fdopen.c      fflush.c    ffs.c \
  2223. ! fgetc.c          fgetpos.c        fgets.c      filbuf.c    findfile.c \
  2224. ! flonum.h      fopen.c        fopen_i.c      fprintf.c    fputc.c \
  2225. ! fputs.c          fread.c        freopen.c      frexp.cpp    frwbin.c \
  2226. ! fseek.c          fsetpos.c        ftell.c      ftw.c        fungetc.c \
  2227. ! fwrite.c      gbl-ctors.h   getbuf.c      getegid.c    getenv.c \
  2228. ! geteuid.c     getgid.c        getlogin.c      getopt.c    getpass.c \
  2229. ! getpid.c      getppid.c        getpw.c      gets.c    getuid.c \
  2230.   getw.c          gmon.c        gnulib2.c      grp.c        ic.c \
  2231. ! ig.c          il.c        ip.c      iw.c        l64a.c \
  2232. ! labs.c          ldexp.cpp        ldiv.c      lib.h        libgcc1.c \
  2233. ! libgcc2.c     linea.c        localtim.c      longlong.h    lseek.c \
  2234. ! ltoa.c          malloc.c        memccpy.c      memchr.c    memcmp.c \
  2235. ! mktemp.c      modf.cpp        nlist.c      obstack.c    perror.c \
  2236. ! pgrp.c          printf.c        psignal.c      putenv.c    puts.c \
  2237. ! qsort.c          raise.c        rand.c      random.c    realloc.c \
  2238. ! regexp.c      regsup.c        rewind.c      sbrk.c    setbuf.c \
  2239. ! setegid.c     seteuid.c        setgid.c      setjmp.cpp    setlocal.c \
  2240. ! setregid.c    setreuid.c    setuid.c      setvbuf.c    sgtty.c \
  2241. ! siglist.c     sprintf.c        stksiz.c      strcat.c    strchr.c \
  2242. ! strcmp.c      strcoll.c        strcpy.c      strcspn.c    strdup.c \
  2243. ! strerror.c    strftime.c    stricmp.c      strlen.c    strlwr.c \
  2244. ! strncat.c     strncmp.c        strncpy.c      strnicmp.c    strpbrk.c \
  2245. ! strrchr.c     strrev.c        strspn.c      strstr.c    strtok.c \
  2246. ! strtol.c      strtoul.c        strupr.c      system.c    sysvar.c \
  2247. ! textio.c      time.c        timeoday.c      tmpfile.c    tmpnam.c \
  2248. ! toxxx.c          uidgid.c        utime.c      vfprintf.c    vprintf.c \
  2249. ! wcmb.c          wcscat.c        wcscmp.c      wcscpy.c    wcslen.c \
  2250. ! wnull.c \
  2251.   
  2252.   MINTLIB= \
  2253. ! Makefile      alarm.c        atexit.c      cfgetisp.c    cfgetosp.c \
  2254. ! cfsetisp.c    cfsetosp.c    clock.c      close.c    closedir.c \
  2255. ! console.c     crt0.cpp        crtinit.c      do_lock.c    do_stat.c \
  2256. ! dup.c          dup2.c        enoent.c      execl.c    execle.c \
  2257. ! execp.c          execv.c        execve.c      fcntl.c    flock.c \
  2258. ! fopenp.c      fork.c        fscanf.c      fstat.c    getcwd.c \
  2259. ! getdtabl.c    getgroup.c    gethostn.c      getpages.c    getrusag.c \
  2260. ! getwd.c          heapbase.c    ident.c      inistack.c    initsig.c \
  2261. ! inode.c          ioctl.c        isatty.c      isctty.c    kill.c \
  2262. ! killpg.c      link.c        lockf.c      lstat.c    main.c \
  2263. ! mincl          mkdir.c        mkfifo.c      mknod.c    nice.c \
  2264. ! open.c          opendir.c        osbind.cpp      pause.c    pipe.c \
  2265. ! popen.c          putpwent.c    read.c      readdir.c    rename.c \
  2266. ! rewinddi.c    rmdir.c        scandir.c      scanf.c    seekdir.c \
  2267.   select.c      setrlimi.c    sigactio.c      sigblock.c    signal.c \
  2268.   sleep.c          spawn.c        spawnve.c      spawnvp.c    sscanf.c \
  2269.   stat.c          statfs.c        symlink.c      sync.c    sysconf.c \
  2270.   tcattr.c      tcbreak.c        tcdrain.c      tcflow.c    tcflush.c \
  2271. ! tcpgrp.c      telldir.c        thread.c      times.c    truncate.c \
  2272. ! ttyname.c     uname.c        unlink.c      unx2dos.c    utmp.c \
  2273. ! vfork.cpp     vfscanf.c        vscanf.c      wait.c    wait3.c \
  2274. ! waitpid.c     write.c        wtmp.c \
  2275.   
  2276.   MINTLIB_NOCL= \
  2277.   AUTHORS          Bugs        Changelog      Copyright    Files \
  2278. *** 43.1    1994/02/15 19:34:32
  2279. --- Makefile.adm    1994/02/28 18:54:30
  2280. ***************
  2281. *** 100,107 ****
  2282.           $(srcdir)/sozobon $(incdir) $(incdir)/sys ;\
  2283.       do \
  2284.         cd $$dir ;\
  2285. !       ci -l -f -m- -r$V.1 RCS/* ;\
  2286. !       co -f -l RCS/* ;\
  2287.       done
  2288.       echo '/*' > PatchLev.h
  2289.       echo ' *    This identifies the version of the MiNT library in this' >> PatchLev.h
  2290. --- 100,106 ----
  2291.           $(srcdir)/sozobon $(incdir) $(incdir)/sys ;\
  2292.       do \
  2293.         cd $$dir ;\
  2294. !       ci -l$V.1 -f -m- RCS/* ;\
  2295.       done
  2296.       echo '/*' > PatchLev.h
  2297.       echo ' *    This identifies the version of the MiNT library in this' >> PatchLev.h
  2298. ***************
  2299. *** 115,117 ****
  2300. --- 114,127 ----
  2301.       ci -f -l -m- Version
  2302.       ci -f -l -m- PatchLev.h
  2303.       cd $(incdir) ; ci -f -l -m- PatchLev.h
  2304. + 
  2305. + checkrcs:
  2306. +     make -f Makefile distclean
  2307. +     for dir in $(srcdir) $(srcdir)/crlf $(srcdir)/lattice \
  2308. +         $(srcdir)/purec $(srcdir)/purec/unixname \
  2309. +         $(srcdir)/sozobon $(incdir) $(incdir)/sys ;\
  2310. +     do \
  2311. +       cd $$dir ;\
  2312. +       echo $$dir ;\
  2313. +       rcsdiff -u * ;\
  2314. +     done | less
  2315. *** 43.1    1994/02/15 19:34:32
  2316. --- PatchLev.h    1994/02/15 20:33:26
  2317. ***************
  2318. *** 3,6 ****
  2319.    *    directory.
  2320.    */
  2321.   
  2322. ! #define PatchLevel "43"
  2323. --- 3,6 ----
  2324.    *    directory.
  2325.    */
  2326.   
  2327. ! #define PatchLevel "44"
  2328. *** 43.1    1994/02/15 19:34:32
  2329. --- README    1994/02/28 18:22:48
  2330. ***************
  2331. *** 74,87 ****
  2332.   As of Patchlevel 31, the MiNT library no longer supports any version of 
  2333.   GCC before 2.0.
  2334.   
  2335. ! The MiNT library cannot be built on a TOS filesystem, due to name conflicts
  2336. ! between several modules (for example, _udivmod.o and _udivmoddi4.o).  It
  2337. ! should work on a cross-compiler or an ST with a filesystem such as minixfs.
  2338.   
  2339.   My configuration, used to build the library on an extended filename
  2340. ! V2 minixfs with gcc 2.3.1:
  2341.     /mint/bin/mfsconf F: -s n -d n -x t -l n
  2342. !   UNIXMODE=cu/rUx
  2343.   
  2344.   Special thanks go out to Jeff Weiner and the rest of the umich archive posse
  2345.   for letting me use terminator for the maintenance of the library.
  2346. --- 74,88 ----
  2347.   As of Patchlevel 31, the MiNT library no longer supports any version of 
  2348.   GCC before 2.0.
  2349.   
  2350. ! The GCC version of the MiNT library cannot be built on a TOS filesystem, due
  2351. ! to name conflicts between several modules (for example, _udivmod.o and
  2352. ! _udivmoddi4.o).  It should work on a cross-compiler or an ST with a
  2353. ! filesystem such as minixfs.
  2354.   
  2355.   My configuration, used to build the library on an extended filename
  2356. ! V2 minixfs with gcc 2.4.5:
  2357.     /mint/bin/mfsconf F: -s n -d n -x t -l n
  2358. !   UNIXMODE=bcu/rUxs
  2359.   
  2360.   Special thanks go out to Jeff Weiner and the rest of the umich archive posse
  2361.   for letting me use terminator for the maintenance of the library.
  2362. *** 43.1    1994/02/15 19:34:32
  2363. --- Version    1994/02/15 20:33:32
  2364. ***************
  2365. *** 1 ****
  2366. ! V=43
  2367. --- 1 ----
  2368. ! V=44
  2369. *** /dev/null    Mon Feb 28 07:43:04 1994
  2370. --- cfgetisp.c    Mon Feb 28 04:42:44 1994
  2371. ***************
  2372. *** 0 ****
  2373. --- 1,14 ----
  2374. + /*
  2375. + Public domain termios cfgetispeed() for the MiNT library
  2376. + 10 October 1993 entropy@terminator.rs.itd.umich.edu -- first attempt
  2377. + */
  2378. + 
  2379. + #include <types.h>
  2380. + #include <termios.h>
  2381. + 
  2382. + speed_t
  2383. + cfgetispeed(stp)
  2384. +   const struct termios *stp;
  2385. + {
  2386. +   return stp->_c_ispeed;
  2387. + }
  2388. *** /dev/null    Mon Feb 28 07:43:04 1994
  2389. --- cfgetosp.c    Mon Feb 28 04:45:02 1994
  2390. ***************
  2391. *** 0 ****
  2392. --- 1,15 ----
  2393. + /*
  2394. + Public domain termios cfgetospeed() for the MiNT library
  2395. + 10 October 1993 entropy@terminator.rs.itd.umich.edu -- first attempt
  2396. + */
  2397. + 
  2398. + #include <types.h>
  2399. + #include <termios.h>
  2400. + 
  2401. + speed_t
  2402. + cfgetospeed(stp)
  2403. +   const struct termios *stp;
  2404. + {
  2405. +   return stp->_c_ospeed;
  2406. + }
  2407. + 
  2408. *** /dev/null    Mon Feb 28 07:43:04 1994
  2409. --- cfsetisp.c    Mon Feb 28 04:46:00 1994
  2410. ***************
  2411. *** 0 ****
  2412. --- 1,17 ----
  2413. + /*
  2414. + Public domain termios cfsetispeed() for the MiNT library
  2415. + 10 October 1993 entropy@terminator.rs.itd.umich.edu -- first attempt
  2416. + */
  2417. + 
  2418. + #include <types.h>
  2419. + #include <termios.h>
  2420. + 
  2421. + int
  2422. + cfsetispeed(stp, baudcode)
  2423. +   struct termios *stp;
  2424. +   speed_t baudcode;
  2425. + {
  2426. +   stp->_c_ispeed = baudcode;
  2427. +   return 0;
  2428. + }
  2429. + 
  2430. *** /dev/null    Mon Feb 28 07:43:04 1994
  2431. --- cfsetosp.c    Mon Feb 28 04:47:34 1994
  2432. ***************
  2433. *** 0 ****
  2434. --- 1,17 ----
  2435. + /*
  2436. + Public domain termios cfsetospeed() for the MiNT library
  2437. + 10 October 1993 entropy@terminator.rs.itd.umich.edu -- first attempt
  2438. + */
  2439. + 
  2440. + #include <types.h>
  2441. + #include <termios.h>
  2442. + 
  2443. + int
  2444. + cfsetospeed(stp, baudcode)
  2445. +   struct termios *stp;
  2446. +   speed_t baudcode;
  2447. + {
  2448. +   stp->_c_ospeed = baudcode;
  2449. +   return 0;
  2450. + }
  2451. + 
  2452. *** /dev/null    Mon Feb 28 07:43:04 1994
  2453. --- closedir.c    Mon Feb 28 05:00:18 1994
  2454. ***************
  2455. *** 0 ****
  2456. --- 1,35 ----
  2457. + /* closedir routine */
  2458. + 
  2459. + /* under MiNT (v0.9 or better) these use the appropriate system calls.
  2460. +  * under TOS or older versions of MiNT, they use Fsfirst/Fsnext
  2461. +  *
  2462. +  * Written by Eric R. Smith and placed in the public domain
  2463. +  */
  2464. + 
  2465. + #include <stdlib.h>
  2466. + #include <string.h>
  2467. + #include <types.h>
  2468. + #include <limits.h>
  2469. + #include <dirent.h>
  2470. + #include <errno.h>
  2471. + #include <osbind.h>
  2472. + #include <mintbind.h>
  2473. + #include "lib.h"
  2474. + 
  2475. + extern int __mint;
  2476. + extern ino_t __inode;    /* in stat.c */
  2477. + 
  2478. + int
  2479. + closedir(dirp)
  2480. +     DIR *dirp;
  2481. + {
  2482. +     int r;
  2483. + 
  2484. +     if (__mint > 8) {
  2485. +         r = (int)Dclosedir(dirp->handle);
  2486. +     } else {
  2487. +         r = 0;
  2488. +     }
  2489. +     free(dirp);
  2490. +     return r;
  2491. + }
  2492. *** /dev/null    Mon Feb 28 07:43:04 1994
  2493. --- do_lock.c    Mon Feb 28 07:25:28 1994
  2494. ***************
  2495. *** 0 ****
  2496. --- 1,61 ----
  2497. + /*
  2498. +  * lockf(3) and flock(2) emulation for MiNT by Dave Gymer
  2499. +  * Placed in the public domain; do with me as you will!
  2500. +  */
  2501. + 
  2502. + #include <errno.h>
  2503. + #include <fcntl.h>
  2504. + #include <unistd.h>
  2505. + #include <mintbind.h>
  2506. + #include <file.h>
  2507. + #include "lib.h"
  2508. + 
  2509. + int
  2510. + _do_lock(fd, cmd, size, whence)
  2511. +     int fd;
  2512. +     int cmd;
  2513. +     long size;
  2514. +     int whence;
  2515. + {
  2516. +     struct flock lock;
  2517. +     int fcmd;
  2518. +     long r;
  2519. +     extern int __mint;
  2520. + 
  2521. +     if (!__mint) {
  2522. +         errno = -EINVAL;
  2523. +         return -1;
  2524. +     }
  2525. +     lock.l_whence = whence;
  2526. +     lock.l_start = 0;
  2527. +     lock.l_len = size;
  2528. +     switch (cmd) {
  2529. +         case F_ULOCK:
  2530. +             lock.l_type = F_UNLCK;
  2531. +             fcmd = F_SETLK;
  2532. +             break;
  2533. +         case F_TEST:
  2534. +             lock.l_type = F_WRLCK;
  2535. +             fcmd = F_GETLK;
  2536. +             break;
  2537. +         case F_TLOCK:
  2538. +             lock.l_type = F_WRLCK;
  2539. +             fcmd = F_SETLK;
  2540. +             break;
  2541. +         case F_LOCK:
  2542. +             lock.l_type = F_WRLCK;
  2543. +             if (__mint < 95)
  2544. +                 fcmd = F_SETLK;
  2545. +             else
  2546. +                 fcmd = F_SETLKW;
  2547. +             break;
  2548. +         default:
  2549. +             errno = -EINVAL;
  2550. +             return -1;
  2551. +     }
  2552. +     if ((r = Fcntl(fd, &lock, fcmd)) < 0) {
  2553. +         errno = (int) -r;
  2554. +         return -1;
  2555. +     }
  2556. +     return 0;
  2557. + }
  2558. *** /dev/null    Mon Feb 28 07:43:04 1994
  2559. --- do_stat.c    Mon Feb 28 09:41:46 1994
  2560. ***************
  2561. *** 0 ****
  2562. --- 1,232 ----
  2563. + /*
  2564. +  * stat, fstat, lstat emulation for TOS
  2565. +  * written by Eric R. Smith and placed in the public domain
  2566. +  */
  2567. + 
  2568. + #include <limits.h>
  2569. + #include <types.h>
  2570. + #include <stat.h>
  2571. + #include <ctype.h>
  2572. + #include <errno.h>
  2573. + #include <osbind.h>
  2574. + #include <mintbind.h>
  2575. + #include <string.h>
  2576. + #include <time.h>
  2577. + #include <unistd.h>
  2578. + #include <support.h>
  2579. + #include <ioctl.h>    /* for FSTAT */
  2580. + #include "lib.h"
  2581. + 
  2582. + extern int __mint;
  2583. + 
  2584. + extern ino_t __inode;
  2585. + 
  2586. + /* for backwards compatibilty: if nonzero, files are checked to see if
  2587. +  * they have the TOS executable magic number in them
  2588. +  */
  2589. + 
  2590. + int    _x_Bit_set_in_stat = 0;
  2591. + 
  2592. + /* date for files (like root directories) that don't have one */
  2593. + #define OLDDATE _unixtime(0,0)
  2594. + 
  2595. + /*
  2596. +  * common routine for stat() and lstat(); if "lflag" is 0, then symbolic
  2597. +  * links are automatically followed (like stat), if 1 then they are not
  2598. +  * (like lstat)
  2599. +  */
  2600. + 
  2601. + __EXTERN int _do_stat __PROTO((const char *_path, struct stat *st, int lflag));
  2602. + 
  2603. + int
  2604. + _do_stat(_path, st, lflag)
  2605. +     const char *_path;
  2606. +     struct stat *st;
  2607. +     int lflag;
  2608. + {
  2609. +     long    r;
  2610. +     _DTA    *olddta;
  2611. +     int    nval;
  2612. +     char    path[PATH_MAX];
  2613. +     char    *ext, drv;
  2614. +     int    fd;
  2615. +     short    magic;
  2616. +     _DTA    d;
  2617. +     int    isdot = 0;
  2618. + 
  2619. +     if (!_path) {
  2620. +         errno = EFAULT;
  2621. +         return -1;
  2622. +     }
  2623. + 
  2624. + /*
  2625. +  * _unx2dos returns 1 for device names (like /dev/con)
  2626. +  */
  2627. +     nval = _unx2dos(_path, path);
  2628. + 
  2629. + /* for MiNT 0.9 and up, we use the built in stat() call */
  2630. +     if (__mint >= 9) {
  2631. +         r = Fxattr(lflag, path, st);
  2632. +         if (r) {
  2633. +             if ((r == -EPATH) && _enoent(path)) {
  2634. +                 r = -ENOENT;
  2635. +             }
  2636. +             errno = (int) -r;
  2637. +             return -1;
  2638. +         }
  2639. +         __UNIXTIME(st->st_mtime);
  2640. +         __UNIXTIME(st->st_atime);
  2641. +         __UNIXTIME(st->st_ctime);
  2642. +     /* Most versions of Unix count in 512 byte blocks */
  2643. +         st->st_blocks = (st->st_blocks * st->st_blksize) / 512;
  2644. +     /* if we hit a symbolic link, try to get its size right */
  2645. +         if (lflag && ((st->st_mode & S_IFMT) == S_IFLNK)) {
  2646. +             char buf[PATH_MAX + 1];
  2647. +             char buf1[PATH_MAX + 1];
  2648. +             r = Freadlink(PATH_MAX, buf, path);
  2649. +             if (r < 0)
  2650. +               {
  2651. +                 errno = (int) -r;
  2652. +                 return -1;
  2653. +               }
  2654. +             buf[PATH_MAX] = 0;
  2655. +             _dos2unx (buf, buf1);
  2656. +             st->st_size = strlen (buf1);
  2657. +         }
  2658. +         return 0;
  2659. +     }
  2660. + 
  2661. + /* otherwise, check to see if we have a name like CON: or AUX: */
  2662. +     if (nval == 1) {
  2663. +         st->st_mode = S_IFCHR | 0600;
  2664. +         st->st_attr = 0;
  2665. +         st->st_ino = ++__inode;
  2666. +         st->st_rdev = 0;
  2667. +         st->st_mtime = st->st_ctime = st->st_atime = 
  2668. +             time((time_t *)0) - 2;
  2669. +         st->st_dev = 0;
  2670. +         st->st_nlink = 1;
  2671. +         st->st_uid = geteuid();
  2672. +         st->st_gid = getegid();
  2673. +         st->st_size = st->st_blocks = 0;
  2674. +         st->st_blksize = 1024;
  2675. +         return 0;
  2676. +     }
  2677. + 
  2678. + /* A file name: check for root directory of a drive */
  2679. +     if (path[0] == '\\' && path[1] == 0) {
  2680. +         drv = Dgetdrv() + 'A';
  2681. +         goto rootdir;
  2682. +     }
  2683. + 
  2684. +     if ( ((drv = path[0]) != 0) && path[1] == ':' &&
  2685. +          (path[2] == 0 || (path[2] == '\\' && path[3] == 0)) ) {
  2686. + rootdir:
  2687. +         st->st_mode = S_IFDIR | 0755;
  2688. +         st->st_attr = FA_DIR;
  2689. +         st->st_dev = isupper(drv) ? drv - 'A' : drv - 'a';
  2690. +         st->st_ino = 2;
  2691. +         st->st_mtime = st->st_ctime = st->st_atime = OLDDATE;
  2692. +         goto fill_dir;
  2693. +     }
  2694. + 
  2695. + /* forbid wildcards in path names */
  2696. +     if (index(path, '*') || index(path, '?')) {
  2697. +         errno = ENOENT;
  2698. +         return -1;
  2699. +     }
  2700. + 
  2701. + /* OK, here we're going to have to do an Fsfirst to get the date */
  2702. + /* NOTE: Fsfirst(".",-1) or Fsfirst("..",-1) both fail under TOS,
  2703. +  * so we kludge around this by using the fact that Fsfirst(".\*.*"
  2704. +  * or "..\*.*" will return the correct file first (except, of course,
  2705. +  * in root directories :-( ).
  2706. +  * NOTE2: Some versions of TOS don't like Fsfirst("RCS\\", -1) either,
  2707. +  * so we do the same thing if the path ends in '\\'.
  2708. +  */
  2709. + 
  2710. + /* find the end of the string */
  2711. +     for (ext = path; ext[0] && ext[1]; ext++) ;
  2712. + 
  2713. + /* add appropriate kludge if necessary */
  2714. +     if (*ext == '.' && (ext == path || ext[-1] == '\\' || ext[-1] == '.')) {
  2715. +         isdot = 1;
  2716. +         strcat(path, "\\*.*");
  2717. +     } else if (*ext == '\\') {
  2718. +         isdot = 1;
  2719. +         strcat(path, "*.*");
  2720. +     }
  2721. +     olddta = Fgetdta();
  2722. +     Fsetdta(&d);
  2723. +     r = Fsfirst(path, 0xff);
  2724. +     Fsetdta(olddta);
  2725. +     if (r < 0) {
  2726. +         if (isdot && r == -ENOENT) goto rootdir;
  2727. +         errno = (int) -r;
  2728. +         return -1;
  2729. +     }    
  2730. + 
  2731. +     if (isdot && ((d.dta_name[0] != '.') || (d.dta_name[1]))) {
  2732. +         goto rootdir;
  2733. +     }
  2734. + 
  2735. +     st->st_mtime = st->st_ctime = st->st_atime =
  2736. +         _unixtime(d.dta_time, d.dta_date);
  2737. +     if (((drv = *path) != 0) && path[1] == ':')
  2738. +         st->st_dev = toupper(drv) - 'A';
  2739. +     else
  2740. +         st->st_dev = Dgetdrv();
  2741. + 
  2742. +     st->st_ino = __inode++;
  2743. +     st->st_attr = d.dta_attribute;
  2744. +     if (__mint && st->st_dev == ('Q' - 'A'))
  2745. +             st->st_mode = 0644 | S_IFIFO;
  2746. +     else {
  2747. +         st->st_mode = 0644 | (st->st_attr & FA_DIR ?
  2748. +                   S_IFDIR | 0111 : S_IFREG);
  2749. +     }
  2750. + 
  2751. +     if (st->st_attr & FA_RDONLY)
  2752. +         st->st_mode &= ~0222;    /* no write permission */
  2753. +     if (st->st_attr & FA_HIDDEN)
  2754. +         st->st_mode &= ~0444;    /* no read permission */
  2755. + 
  2756. + /* check for a file with an executable extension */
  2757. +     ext = strrchr(_path, '.');
  2758. +     if (ext) {
  2759. +         if (!strcmp(ext, ".ttp") || !strcmp(ext, ".prg") ||
  2760. +             !strcmp(ext, ".tos") || !strcmp(ext, ".g") ||
  2761. +             !strcmp(ext, ".sh")     || !strcmp(ext, ".bat")) {
  2762. +             st->st_mode |= 0111;
  2763. +         }
  2764. +     }
  2765. +     if ( (st->st_mode & S_IFMT) == S_IFREG) {
  2766. +         if (_x_Bit_set_in_stat) {
  2767. +             if ((fd = (int) Fopen(path,0)) < 0) {
  2768. +                 errno = -fd;
  2769. +                 return -1;
  2770. +             }
  2771. +             magic = 0;
  2772. +             (void)Fread(fd,2,(char *)&magic);
  2773. +             (void)Fclose(fd);
  2774. +             if (magic == 0x601A    /* TOS executable */
  2775. +                 || magic == 0x2321) /* "#!" shell file */
  2776. +                 st->st_mode |= 0111;
  2777. +         }
  2778. +         st->st_size = d.dta_size;
  2779. +     /* in Unix, blocks are measured in 512 bytes */
  2780. +         st->st_blocks = (st->st_size + 511) / 512;
  2781. +         st->st_nlink = 1; /* we dont have hard links */
  2782. +     } else {
  2783. + fill_dir:
  2784. +         st->st_size = 1024;
  2785. +         st->st_blocks = 2;
  2786. +         st->st_nlink = 2;    /* "foo" && "foo/.." */
  2787. +     }
  2788. + 
  2789. +     st->st_rdev = 0;
  2790. +     st->st_uid = geteuid();    /* the current user owns every file */
  2791. +     st->st_gid = getegid();
  2792. +     st->st_blksize = 1024;
  2793. +     return 0;
  2794. + }
  2795. *** 43.1    1994/02/15 19:34:32
  2796. --- dup.c    1994/02/28 10:16:02
  2797. ***************
  2798. *** 1,11 ****
  2799.   /* from Dale Schumacher's dLibs library */
  2800.   
  2801. ! /* these will have to be adjusted at some time ++jrb */
  2802. ! /* use these with caution, TOS 1.4 still has double re-direction bug! */
  2803.   
  2804.   #include <stddef.h>
  2805.   #include <fcntl.h>
  2806. - #include <osbind.h>
  2807.   #include <errno.h>
  2808.   #include <mintbind.h>
  2809.   #include <unistd.h>
  2810. --- 1,10 ----
  2811.   /* from Dale Schumacher's dLibs library */
  2812.   
  2813. ! /* will have to be adjusted at some time ++jrb */
  2814. ! /* use with caution, TOS 1.4 still has double re-direction bug! */
  2815.   
  2816.   #include <stddef.h>
  2817.   #include <fcntl.h>
  2818.   #include <errno.h>
  2819.   #include <mintbind.h>
  2820.   #include <unistd.h>
  2821. ***************
  2822. *** 43,68 ****
  2823.       return(rv);
  2824.   }
  2825.   
  2826. - int
  2827. - dup2(handle1, handle2)
  2828. -     int handle1, handle2;
  2829. - {
  2830. -     int rv;
  2831. -     long flags;
  2832. - 
  2833. -     if (handle1 == handle2)
  2834. -         return (handle2);
  2835. - 
  2836. -     if ((rv = (int)Fforce(handle2, handle1)) < 0)
  2837. -         errno = -rv;
  2838. -     else {
  2839. -         if (__OPEN_INDEX(handle2) < __NHANDLES)
  2840. -             __open_stat[__OPEN_INDEX(handle2)] =
  2841. -                 __open_stat[__OPEN_INDEX(handle1)];
  2842. -         if (__mint) {
  2843. -             flags = (long)Fcntl(handle2, (long)0, F_GETFD);
  2844. -             (void)Fcntl(handle2, flags & ~FD_CLOEXEC, F_SETFD);
  2845. -         }
  2846. -     }
  2847. -     return (rv < 0) ? -1 : handle2;
  2848. - }
  2849. --- 42,44 ----
  2850. *** /dev/null    Mon Feb 28 07:43:04 1994
  2851. --- dup2.c    Mon Feb 28 05:15:16 1994
  2852. ***************
  2853. *** 0 ****
  2854. --- 1,37 ----
  2855. + /* from Dale Schumacher's dLibs library */
  2856. + 
  2857. + /* will have to be adjusted at some time ++jrb */
  2858. + /* use with caution, TOS 1.4 still has double re-direction bug! */
  2859. + 
  2860. + #include <stddef.h>
  2861. + #include <fcntl.h>
  2862. + #include <errno.h>
  2863. + #include <mintbind.h>
  2864. + #include <unistd.h>
  2865. + #include "lib.h"
  2866. + 
  2867. + extern int __mint;
  2868. + 
  2869. + int
  2870. + dup2(handle1, handle2)
  2871. +     int handle1, handle2;
  2872. + {
  2873. +     int rv;
  2874. +     long flags;
  2875. + 
  2876. +     if (handle1 == handle2)
  2877. +         return (handle2);
  2878. + 
  2879. +     if ((rv = (int)Fforce(handle2, handle1)) < 0)
  2880. +         errno = -rv;
  2881. +     else {
  2882. +         if (__OPEN_INDEX(handle2) < __NHANDLES)
  2883. +             __open_stat[__OPEN_INDEX(handle2)] =
  2884. +                 __open_stat[__OPEN_INDEX(handle1)];
  2885. +         if (__mint) {
  2886. +             flags = (long)Fcntl(handle2, (long)0, F_GETFD);
  2887. +             (void)Fcntl(handle2, flags & ~FD_CLOEXEC, F_SETFD);
  2888. +         }
  2889. +     }
  2890. +     return (rv < 0) ? -1 : handle2;
  2891. + }
  2892. *** /dev/null    Mon Feb 28 07:43:04 1994
  2893. --- enoent.c    Mon Feb 28 03:39:32 1994
  2894. ***************
  2895. *** 0 ****
  2896. --- 1,46 ----
  2897. + #include <errno.h>
  2898. + #include <string.h>
  2899. + #include <stat.h>
  2900. + #include <mintbind.h>
  2901. + #include "lib.h"
  2902. + 
  2903. + extern int __mint;
  2904. + 
  2905. + /*
  2906. + Given a pathname for which some system call returned EPATH, this function
  2907. + decides if UNIX would have returned ENOENT instead.
  2908. + Warning: path must be in dos format.
  2909. + */
  2910. + 
  2911. + int
  2912. + _enoent(path)
  2913. +   char *path;
  2914. + {
  2915. +   register char *s;
  2916. +   struct stat st;
  2917. +   long oldmask;
  2918. + 
  2919. +   if (__mint < 9)
  2920. +   {
  2921. +     return 0; /* don't bother... */
  2922. +   }
  2923. +   for (s = path; *s; s++)
  2924. +     /* nop */;
  2925. +   oldmask = Psigblock(~0L);
  2926. +   for ( ; s != path; s--)
  2927. +   {
  2928. +     if (*s == '\\')
  2929. +     {
  2930. +       *s = '\0';
  2931. +       if ((Fxattr(0, path, &st) == 0) && ((st.st_mode & S_IFMT) != S_IFDIR))
  2932. +       {
  2933. +         *s = '\\';
  2934. +         (void) Psigsetmask(oldmask);
  2935. +         return 0; /* existing non-directory file in path, ENOTDIR ok */
  2936. +       }
  2937. +       *s = '\\';
  2938. +     }
  2939. +   }
  2940. +   (void) Psigsetmask(oldmask);
  2941. +   return 1; /* should have been ENOENT */
  2942. + }
  2943. *** /dev/null    Mon Feb 28 07:43:04 1994
  2944. --- execl.c    Mon Feb 28 05:26:44 1994
  2945. ***************
  2946. *** 0 ****
  2947. --- 1,21 ----
  2948. + /*
  2949. +     execl for MiNT/TOS; written by Eric R. Smith, and
  2950. +     placed in the public domain
  2951. + */
  2952. + 
  2953. + #include <stdarg.h>
  2954. + #include <process.h>
  2955. + #include <unistd.h>
  2956. + 
  2957. + #ifdef __STDC__
  2958. + int execl(const char *path, ...)
  2959. + #else
  2960. + int execl(path)
  2961. +     char    *path;
  2962. + #endif
  2963. + {
  2964. +     va_list args;
  2965. + 
  2966. +     va_start(args, path);
  2967. +     return _spawnve(P_OVERLAY, path, (char **)args, NULL);
  2968. + }
  2969. *** /dev/null    Mon Feb 28 07:43:04 1994
  2970. --- execle.c    Mon Feb 28 05:26:36 1994
  2971. ***************
  2972. *** 0 ****
  2973. --- 1,25 ----
  2974. + /*
  2975. +     execle for MiNT/TOS; written by Eric R. Smith, and
  2976. +     placed in the public domain
  2977. + */
  2978. + 
  2979. + #include <stdarg.h>
  2980. + #include <process.h>
  2981. + #include <unistd.h>
  2982. + 
  2983. + #ifdef __STDC__
  2984. + int execle(const char *path, ...)
  2985. + #else
  2986. + int execle(path)
  2987. +     char    *path;
  2988. + #endif
  2989. + {
  2990. +     va_list args;
  2991. +     char    ***envp;
  2992. + 
  2993. +     va_start(args, path);
  2994. + 
  2995. +     for (envp = (char ***) args ; *envp ; envp++)
  2996. +         ;
  2997. +     return _spawnve(P_OVERLAY, path, (char **)args, *(envp+1));
  2998. + }
  2999. *** /dev/null    Mon Feb 28 07:43:04 1994
  3000. --- execv.c    Mon Feb 28 05:21:58 1994
  3001. ***************
  3002. *** 0 ****
  3003. --- 1,16 ----
  3004. + /*
  3005. +     execv for MiNT/TOS; written by Eric R. Smith, and
  3006. +     placed in the public domain
  3007. + */
  3008. + 
  3009. + #include <process.h>
  3010. + #include <unistd.h>
  3011. + 
  3012. + int
  3013. + execv(path, argv)
  3014. +     const char *path;
  3015. +     char *const *argv;
  3016. + {
  3017. +     return _spawnve(P_OVERLAY, path, argv, NULL);
  3018. + }
  3019. + 
  3020. *** /dev/null    Mon Feb 28 07:43:04 1994
  3021. --- execve.c    Mon Feb 28 05:20:04 1994
  3022. ***************
  3023. *** 0 ****
  3024. --- 1,17 ----
  3025. + /*
  3026. +     execve for MiNT/TOS; written by Eric R. Smith, and
  3027. +     placed in the public domain
  3028. + */
  3029. + 
  3030. + #include <process.h>
  3031. + #include <unistd.h>
  3032. + 
  3033. + int
  3034. + execve(path, argv, envp)
  3035. +     const char *path;
  3036. +     char *const *argv;
  3037. +     char *const *envp;
  3038. + {
  3039. +     return _spawnve(P_OVERLAY, path, argv, envp);
  3040. + }
  3041. + 
  3042. *** /dev/null    Mon Feb 28 07:43:04 1994
  3043. --- flock.c    Mon Feb 28 07:31:06 1994
  3044. ***************
  3045. *** 0 ****
  3046. --- 1,27 ----
  3047. + /*
  3048. +  * lockf(3) and flock(2) emulation for MiNT by Dave Gymer
  3049. +  * Placed in the public domain; do with me as you will!
  3050. +  */
  3051. + 
  3052. + #include <errno.h>
  3053. + #include <fcntl.h>
  3054. + #include <unistd.h>
  3055. + #include <file.h>
  3056. + #include "lib.h"
  3057. + 
  3058. + int
  3059. + flock(fd, op)
  3060. +     int fd, op;
  3061. + {
  3062. +     int cmd;
  3063. + 
  3064. +     if (op & (LOCK_SH | LOCK_EX))
  3065. +         cmd = (op & LOCK_NB) ? F_TLOCK : F_LOCK;
  3066. +     else if (op & LOCK_UN)
  3067. +         cmd = F_ULOCK;
  3068. +     else {
  3069. +         errno = -EINVAL;
  3070. +         return -1;
  3071. +     }
  3072. +     return _do_lock(fd, cmd, 0L, 0);
  3073. + }
  3074. *** 43.1    1994/02/15 19:34:32
  3075. --- fscanf.c    1994/02/28 11:20:14
  3076. ***************
  3077. *** 46,65 ****
  3078.       return(_scanf(stdin, fgetc, fungetc, fmt, &arg));
  3079.       }
  3080.   #endif /* __STDC__ */
  3081. - 
  3082. - int
  3083. - vscanf(fmt, arg)
  3084. -     const char *fmt;
  3085. -     va_list arg;
  3086. -     {
  3087. -     return(_scanf(stdin, fgetc, fungetc, fmt, arg));
  3088. -     }
  3089. - 
  3090. - int
  3091. - vfscanf(fp, fmt, arg)
  3092. -     FILE *fp;
  3093. -     const char *fmt;
  3094. -     va_list arg;
  3095. -     {
  3096. -     return(_scanf(fp, fgetc, fungetc, fmt, arg));
  3097. -     }
  3098. --- 46,48 ----
  3099. *** /dev/null    Mon Feb 28 07:43:04 1994
  3100. --- fstat.c    Mon Feb 28 09:01:58 1994
  3101. ***************
  3102. *** 0 ****
  3103. --- 1,96 ----
  3104. + #include <limits.h>
  3105. + #include <types.h>
  3106. + #include <stat.h>
  3107. + #include <ctype.h>
  3108. + #include <errno.h>
  3109. + #include <osbind.h>
  3110. + #include <mintbind.h>
  3111. + #include <string.h>
  3112. + #include <time.h>
  3113. + #include <unistd.h>
  3114. + #include <support.h>
  3115. + #include <ioctl.h>    /* for FSTAT */
  3116. + #include "lib.h"
  3117. + 
  3118. + extern int __mint;
  3119. + 
  3120. + extern ino_t __inode;
  3121. + 
  3122. + __EXTERN int _do_stat __PROTO((const char *_path, struct stat *st, int lflag));
  3123. + 
  3124. + /* 
  3125. +  * fstat: if we're not running under MiNT, this is pretty bogus.
  3126. +  * what we can really find is:
  3127. +  * modification time: via Fdatime()
  3128. +  * file size: via Fseek()
  3129. +  * fortunately, these are the things most programs are interested in.
  3130. +  * BUG: passing an invalid file descriptor gets back a stat structure for
  3131. +  * a tty.
  3132. +  */
  3133. + 
  3134. + int
  3135. + fstat(fd, st)
  3136. + int fd;
  3137. + struct stat *st;
  3138. + {
  3139. +     long oldplace, r;
  3140. +     _DOSTIME timeptr;
  3141. +     short magic;
  3142. + 
  3143. +     if (__mint >= 9) {        /* use FSTAT Fcntl */
  3144. +         r = Fcntl(fd, (long)st, FSTAT);
  3145. +         if (r) {
  3146. +             errno = (int) -r;
  3147. +             return -1;
  3148. +         }
  3149. +         __UNIXTIME(st->st_mtime);
  3150. +         __UNIXTIME(st->st_atime);
  3151. +         __UNIXTIME(st->st_ctime);
  3152. +         st->st_blocks = (st->st_blocks * st->st_blksize) / 512;
  3153. +         return 0;
  3154. +     }
  3155. + 
  3156. +     r = Fdatime(&timeptr, fd, 0);
  3157. +     if (r < 0) {            /* assume TTY */
  3158. +         st->st_mode = S_IFCHR | 0600;
  3159. +         st->st_attr = 0;
  3160. +         st->st_mtime = st->st_ctime = st->st_atime =
  3161. +             time((time_t *)0) - 2;
  3162. +         st->st_size = 0;
  3163. +     } else {
  3164. +         st->st_mtime = st->st_atime = st->st_ctime =
  3165. +             _unixtime(timeptr.time, timeptr.date);
  3166. +         st->st_mode = S_IFREG | 0644;        /* this may be false */
  3167. +         st->st_attr = 0;            /* because this is */
  3168. + 
  3169. +     /* get current file location */
  3170. +         oldplace = Fseek(0L, fd, SEEK_CUR);
  3171. +         if (oldplace < 0) {        /* can't seek -- must be pipe */
  3172. +             st->st_mode = S_IFIFO | 0644;
  3173. +             st->st_size = 1024;
  3174. +         } else {
  3175. +             r = Fseek(0L, fd, SEEK_END);    /* go to end of file */
  3176. +             st->st_size = r;
  3177. +             (void)Fseek(0L, fd, SEEK_SET);    /* go to start of file */
  3178. +             /* check for executable file */
  3179. +             if (Fread(fd, 2, (char *)&magic) == 2) {
  3180. +                 if (magic == 0x601a || magic == 0x2321)
  3181. +                     st->st_mode |= 0111;
  3182. +             }
  3183. +             (void)Fseek(oldplace, fd, SEEK_SET);
  3184. +         }
  3185. +     }
  3186. + 
  3187. + /* all this stuff is likely bogus as well. sigh. */
  3188. +     st->st_dev = Dgetdrv();
  3189. +     st->st_rdev = 0;
  3190. +     st->st_uid = getuid();
  3191. +     st->st_gid = getgid();
  3192. +     st->st_blksize = 1024;
  3193. + /* note: most Unixes measure st_blocks in 512 byte units */
  3194. +     st->st_blocks = (st->st_size + 511) / 512;
  3195. +     st->st_ino = ++__inode;
  3196. +     st->st_nlink = 1;
  3197. +     return 0;
  3198. + }
  3199. + 
  3200. *** 43.1    1994/02/15 19:34:32
  3201. --- getcwd.c    1994/02/28 11:36:12
  3202. ***************
  3203. *** 60,75 ****
  3204.       return buf;
  3205.   }
  3206.   
  3207. - /*
  3208. -  * char *getwd(char *buf)
  3209. -  *    return cwd in buf
  3210. -  */
  3211. - char *getwd(buf)
  3212. - char *buf;
  3213. - {
  3214. -   char *ret = getcwd(buf, PATH_MAX);
  3215. -   if (ret)
  3216. -     return ret;
  3217. -   strcpy (buf, strerror (errno));
  3218. -   return NULL;
  3219. - }
  3220. --- 60,62 ----
  3221. *** /dev/null    Mon Feb 28 07:43:04 1994
  3222. --- getwd.c    Mon Feb 28 09:54:48 1994
  3223. ***************
  3224. *** 0 ****
  3225. --- 1,20 ----
  3226. + #include <limits.h>
  3227. + #include <string.h>
  3228. + #include <unistd.h>
  3229. + #include <errno.h>
  3230. + #include "lib.h"
  3231. + 
  3232. + /*
  3233. +  * char *getwd(char *buf)
  3234. +  *    return cwd in buf
  3235. +  */
  3236. + char *
  3237. + getwd(buf)
  3238. +   char *buf;
  3239. + {
  3240. +   char *ret = getcwd(buf, PATH_MAX);
  3241. +   if (ret)
  3242. +     return ret;
  3243. +   strcpy(buf, strerror(errno));
  3244. +   return NULL;
  3245. + }
  3246. *** /dev/null    Mon Feb 28 07:43:04 1994
  3247. --- inode.c    Mon Feb 28 04:22:50 1994
  3248. ***************
  3249. *** 0 ****
  3250. --- 1,4 ----
  3251. + #include <types.h>
  3252. + 
  3253. + ino_t __inode = 32; /* used in readdir, _do_stat, fstat */
  3254. + 
  3255. *** 43.1    1994/02/15 19:34:32
  3256. --- ioctl.c    1994/02/21 19:16:42
  3257. ***************
  3258. *** 10,15 ****
  3259. --- 10,16 ----
  3260.   #include <unistd.h>
  3261.   #include <linea.h>    /* for TIOCGWINSZ under TOS */
  3262.   #include <support.h>
  3263. + #include <stat.h>
  3264.   #include "lib.h"    /* for __open_stat */
  3265.   
  3266.   extern int __mint;    /* MiNT version */
  3267. ***************
  3268. *** 28,86 ****
  3269.       int istty = isatty(fd);
  3270.       struct sgttyb *sg = (struct sgttyb *) arg;
  3271.       int null_fd;
  3272.   
  3273.       if (istty) {
  3274. !         if (cmd == TIOCGETD) {
  3275.               *((int *)arg) = _ttydisc;
  3276.               return 0;
  3277. !         } else if (cmd == TIOCSETD) {
  3278.               _ttydisc = *((int *)arg);
  3279.               return 0;
  3280. !         } else if (cmd == TIOCLGET) {
  3281.               *((int *)arg) = _ldisc;
  3282.               return 0;
  3283. !         } else if (cmd == TIOCLSET) {
  3284.               _ldisc = *((int *)arg);
  3285.               return 0;
  3286. !         } else if (cmd == TIOCSWINSZ && __mint < 9) {
  3287. !             return 0;
  3288. !         } else if (cmd == TIOCGWINSZ && __mint < 9) {
  3289. !             struct winsize *win = (struct winsize *)arg;
  3290. ! 
  3291.   #ifndef __SOZOBON__
  3292. !             (void)linea0();
  3293.   #else /* __SOZOBON__ */
  3294. !             linea0();
  3295.   #endif /* __SOZOBON__ */
  3296. !             win->ws_row = V_CEL_MY + 1;
  3297. !             win->ws_col = V_CEL_MX + 1;
  3298. !             win->ws_xpixel = V_X_MAX;
  3299. !             win->ws_ypixel = V_Y_MAX;
  3300. !             return 0;
  3301. !         }
  3302. ! #ifdef __MINT__
  3303. !         else if (cmd == TIOCNOTTY && __mint) {
  3304. !             if ((fd < 0) || !(_isctty(fd))) {
  3305. !                 errno = EBADF;
  3306. !                 return -1;
  3307.               }
  3308. !             (void) Fclose(fd);
  3309. !             null_fd = (int) Fopen(__mint < 9 ? "V:\\null"
  3310. !                     : "U:\\dev\\null", O_RDWR);
  3311. !             (void) Fforce(-1, null_fd);
  3312. !             __open_stat[__OPEN_INDEX(-1)].status = FH_UNKNOWN;
  3313. !             __open_stat[__OPEN_INDEX(fd)].status = FH_UNKNOWN;
  3314. !             if (null_fd != fd) {
  3315. !                 (void) Fforce(fd, null_fd);
  3316. !                 (void) Fclose(null_fd);
  3317.               }
  3318. !             return 0;
  3319. !         }
  3320.   #endif /* __MINT__ */
  3321.       }
  3322.   
  3323.       if (__mint) {
  3324. !         r = Fcntl(fd, arg, cmd);
  3325.       }
  3326.       else if (istty) {
  3327.           r = 0;
  3328. --- 29,164 ----
  3329.       int istty = isatty(fd);
  3330.       struct sgttyb *sg = (struct sgttyb *) arg;
  3331.       int null_fd;
  3332. +     long baud;
  3333.   
  3334.       if (istty) {
  3335. !         switch (cmd) {
  3336. !         case TIOCGETD:
  3337.               *((int *)arg) = _ttydisc;
  3338.               return 0;
  3339. !             break;
  3340. !         case TIOCSETD:
  3341.               _ttydisc = *((int *)arg);
  3342.               return 0;
  3343. !             break;
  3344. !         case TIOCLGET:
  3345.               *((int *)arg) = _ldisc;
  3346.               return 0;
  3347. !             break;
  3348. !         case TIOCLSET:
  3349.               _ldisc = *((int *)arg);
  3350.               return 0;
  3351. !             break;
  3352. !         case TIOCSWINSZ:
  3353. !             if (__mint < 9)
  3354. !                 return 0;
  3355. !             break;
  3356. !         case TIOCGWINSZ:
  3357. !             if (__mint < 9) {
  3358. !                 struct winsize *win = (struct winsize *)arg;
  3359.   #ifndef __SOZOBON__
  3360. !                 (void)linea0();
  3361.   #else /* __SOZOBON__ */
  3362. !                 linea0();
  3363.   #endif /* __SOZOBON__ */
  3364. !                 win->ws_row = V_CEL_MY + 1;
  3365. !                 win->ws_col = V_CEL_MX + 1;
  3366. !                 win->ws_xpixel = V_X_MAX;
  3367. !                 win->ws_ypixel = V_Y_MAX;
  3368. !                 return 0;
  3369.               }
  3370. !             break;
  3371. ! #ifdef __MINT__
  3372. !         case TIOCNOTTY:
  3373. !             if (__mint) {
  3374. !                 if ((fd < 0) || !(_isctty(fd))) {
  3375. !                     errno = EBADF;
  3376. !                     return -1;
  3377. !                 }
  3378. !                 (void) Fclose(fd);
  3379. !                 null_fd = (int) Fopen(__mint < 9 ? "V:\\null"
  3380. !                         : "U:\\dev\\null", O_RDWR);
  3381. !                 (void) Fforce(-1, null_fd);
  3382. !                 __open_stat[__OPEN_INDEX(-1)].status =
  3383. !                     FH_UNKNOWN;
  3384. !                 __open_stat[__OPEN_INDEX(fd)].status =
  3385. !                     FH_UNKNOWN;
  3386. !                 if (null_fd != fd) {
  3387. !                     (void) Fforce(fd, null_fd);
  3388. !                     (void) Fclose(null_fd);
  3389. !                 }
  3390. !                 return 0;
  3391.               }
  3392. !             break;
  3393.   #endif /* __MINT__ */
  3394. +         default:
  3395. +             break;
  3396. +         }
  3397.       }
  3398.   
  3399.       if (__mint) {
  3400. !       switch (cmd) {
  3401. !         case TIOCCDTR:
  3402. !           baud = 0;
  3403. !           r = Fcntl(fd, &baud, TIOCOBAUD);
  3404. !           if (r < 0) {
  3405. !             errno = (int) -r;
  3406. !         return -1;
  3407. !           }
  3408. !           return 0;
  3409. !           break;
  3410. !         case TIOCSDTR:
  3411. !           baud = -1;
  3412. !           r = Fcntl(fd, &baud, TIOCOBAUD);
  3413. !           if (r < 0) {
  3414. !             errno = (int) -r;
  3415. !         return -1;
  3416. !           }
  3417. !           r = Fcntl(fd, &baud, TIOCOBAUD);
  3418. !           if (r < 0) {
  3419. !             errno = (int) -r;
  3420. !         return -1;
  3421. !           }
  3422. !           return 0;
  3423. !           break;
  3424. !         case TIOCMGET:
  3425. !           if (__mint >= 0x10a) {
  3426. !                 char g;
  3427. !                 long ssp;
  3428. !                 short *mfp;
  3429. !                 short m;
  3430. !                 struct stat sb;
  3431. !                 long *msig;
  3432. ! 
  3433. !                 msig = (long *) arg;
  3434. !                 r = Fcntl(fd, (long)&sb, FSTAT);
  3435. !                 if (r < 0) {
  3436. !           errno = -r;
  3437. !                   return -1;
  3438. !         }
  3439. !                 if (((sb.st_mode & S_IFMT) == S_IFCHR) && (sb.st_rdev == 257))
  3440. !                 {
  3441. !                   *msig = TIOCM_DSR;
  3442. !                   g = Giaccess(0, 14);
  3443. !                   *msig |= ((g & (1 << 3)) ? 0 : TIOCM_RTS);
  3444. !                   *msig |= ((g & (1 << 4)) ? 0 : TIOCM_DTR);
  3445. !                   mfp = ((short *) 0xfffffa00L);
  3446. !                   ssp = Super(0L);
  3447. !                   m = *mfp & 0xff;
  3448. !                   Super(ssp);
  3449. !                   *msig |= ((m & (1 << 1)) ? 0 : TIOCM_CAR);
  3450. !                   *msig |= ((m & (1 << 2)) ? 0 : TIOCM_CTS);
  3451. !                   *msig |= ((m & (1 << 6)) ? 0 : TIOCM_RNG);
  3452. !                   return 0;
  3453. !                 }
  3454. !                 errno = EINVAL;
  3455. !                 return -1;
  3456. !                 break;
  3457. !           }
  3458. !         default:
  3459. !           r = Fcntl(fd, arg, cmd);
  3460. !           break;
  3461. !         }
  3462.       }
  3463.       else if (istty) {
  3464.           r = 0;
  3465. *** 43.1    1994/02/15 19:34:32
  3466. --- isatty.c    1994/02/28 15:00:36
  3467. ***************
  3468. *** 1,22 ****
  3469.   /* from the original GCC TOS library by jrd */
  3470.   /* this algorithm is due to Allan Pratt @ Atari.  Thanks Allan! */
  3471.   
  3472. - #include <errno.h>
  3473. - #include <osbind.h>
  3474.   #include <fcntl.h>
  3475. - #include <stdio.h>
  3476.   #include <ioctl.h>
  3477.   #include <unistd.h>
  3478. - #include <string.h>
  3479. - #include <support.h>
  3480. - #include <stat.h>
  3481.   #include <mintbind.h>
  3482.   #include "lib.h"
  3483.   
  3484.   struct __open_file __open_stat[__NHANDLES];
  3485.   
  3486. ! int isatty(fd)
  3487. ! int fd;
  3488.   {
  3489.     int rc;
  3490.     long oldloc;
  3491. --- 1,18 ----
  3492.   /* from the original GCC TOS library by jrd */
  3493.   /* this algorithm is due to Allan Pratt @ Atari.  Thanks Allan! */
  3494.   
  3495.   #include <fcntl.h>
  3496.   #include <ioctl.h>
  3497. + #include <stdio.h>
  3498.   #include <unistd.h>
  3499.   #include <mintbind.h>
  3500.   #include "lib.h"
  3501.   
  3502.   struct __open_file __open_stat[__NHANDLES];
  3503.   
  3504. ! int
  3505. ! isatty(fd)
  3506. !   int fd;
  3507.   {
  3508.     int rc;
  3509.     long oldloc;
  3510. ***************
  3511. *** 42,81 ****
  3512.       else
  3513.           __open_stat[handle].status = FH_ISAFILE;
  3514.     return (rc);            /* return true, false, or error */
  3515. - }
  3516. - 
  3517. - /* _isctty():  determine if a file descriptor refers to this process's
  3518. -    controlling tty.
  3519. - */
  3520. - int
  3521. - _isctty(fd)
  3522. -   int fd;
  3523. - {
  3524. - #if 0
  3525. -   char ctty_name[L_ctermid];
  3526. -   char ftty_name[L_ctermid];
  3527. - #endif
  3528. -   struct stat st, tt;
  3529. -   extern int __mint;
  3530. - 
  3531. -   if (!(isatty(fd)) || !(isatty(-1)))
  3532. -     return 0;
  3533. -   if (fd == -1)
  3534. -     return 1;
  3535. - #if 1
  3536. -   if (__mint >= 9 && !Fcntl (fd, &st, FSTAT) && !Fcntl (-1, &tt, FSTAT)) {
  3537. -     /* shouldn't this be as good?  the stuff below takes ages...
  3538. -        (still loses on /dev/aux etc but ttyname can't be much better)
  3539. -     */
  3540. -     return (st.st_dev == tt.st_dev && st.st_ino == tt.st_ino);
  3541. -   }
  3542. -   /* We know that __mint < 9 (the Fcntl's above don't have the chance
  3543. -      to fail), use the same algorithm that ttyname() uses in this
  3544. -      case: it returns "/dev/aux" if fd == -2 */
  3545. -   return fd != -2;
  3546. - #else
  3547. -   (void) ctermid(ctty_name);
  3548. -   (void) strncpy(ftty_name, ttyname(fd), L_ctermid);
  3549. -   return !(strncmp(ctty_name, ftty_name, L_ctermid));
  3550. - #endif
  3551.   }
  3552. --- 38,41 ----
  3553. *** /dev/null    Mon Feb 28 07:43:04 1994
  3554. --- isctty.c    Mon Feb 28 07:16:38 1994
  3555. ***************
  3556. *** 0 ****
  3557. --- 1,32 ----
  3558. + /* _isctty():  determine if a file descriptor refers to this process's
  3559. +    controlling tty.
  3560. + */
  3561. + 
  3562. + #include <fcntl.h>
  3563. + #include <stdio.h>
  3564. + #include <ioctl.h>
  3565. + #include <unistd.h>
  3566. + #include <support.h>
  3567. + #include <stat.h>
  3568. + #include <mintbind.h>
  3569. + #include "lib.h"
  3570. + 
  3571. + int
  3572. + _isctty(fd)
  3573. +   int fd;
  3574. + {
  3575. +   struct stat st, tt;
  3576. +   extern int __mint;
  3577. + 
  3578. +   if (!(isatty(fd)) || !(isatty(-1)))
  3579. +     return 0;
  3580. +   if (fd == -1)
  3581. +     return 1;
  3582. +   if (__mint >= 9 && !Fcntl (fd, &st, FSTAT) && !Fcntl (-1, &tt, FSTAT)) {
  3583. +     return (st.st_dev == tt.st_dev && st.st_ino == tt.st_ino);
  3584. +   }
  3585. +   /* We know that __mint < 9 (the Fcntl's above don't have the chance
  3586. +      to fail), use the same algorithm that ttyname() uses in this
  3587. +      case: it returns "/dev/aux" if fd == -2 */
  3588. +   return fd != -2;
  3589. + }
  3590. *** 43.1    1994/02/15 19:34:32
  3591. --- lockf.c    1994/02/28 12:31:46
  3592. ***************
  3593. *** 3,71 ****
  3594.    * Placed in the public domain; do with me as you will!
  3595.    */
  3596.   
  3597. - #include <compiler.h>
  3598. - #include "lib.h"
  3599. - #include <errno.h>
  3600. - #include <fcntl.h>
  3601.   #include <unistd.h>
  3602. ! #include <mintbind.h>
  3603. ! #ifdef __TURBOC__
  3604. ! #include <sys\file.h>
  3605. ! #else
  3606. ! #include <sys/file.h>
  3607. ! #endif
  3608. ! 
  3609. ! static int do_lock __PROTO((int fd, int cmd, long size, int whence));
  3610. ! 
  3611. ! static int
  3612. ! do_lock(fd, cmd, size, whence)
  3613. !     int fd;
  3614. !     int cmd;
  3615. !     long size;
  3616. !     int whence;
  3617. ! {
  3618. !     struct flock lock;
  3619. !     int fcmd;
  3620. !     long r;
  3621. !     extern int __mint;
  3622. ! 
  3623. !     if (!__mint) {
  3624. !         errno = -EINVAL;
  3625. !         return -1;
  3626. !     }
  3627. !     lock.l_whence = whence;
  3628. !     lock.l_start = 0;
  3629. !     lock.l_len = size;
  3630. !     switch (cmd) {
  3631. !         case F_ULOCK:
  3632. !             lock.l_type = F_UNLCK;
  3633. !             fcmd = F_SETLK;
  3634. !             break;
  3635. !         case F_TEST:
  3636. !             lock.l_type = F_WRLCK;
  3637. !             fcmd = F_GETLK;
  3638. !             break;
  3639. !         case F_TLOCK:
  3640. !             lock.l_type = F_WRLCK;
  3641. !             fcmd = F_SETLK;
  3642. !             break;
  3643. !         case F_LOCK:
  3644. !             lock.l_type = F_WRLCK;
  3645. !             if (__mint < 95)
  3646. !                 fcmd = F_SETLK;
  3647. !             else
  3648. !                 fcmd = F_SETLKW;
  3649. !             break;
  3650. !         default:
  3651. !             errno = -EINVAL;
  3652. !             return -1;
  3653. !     }
  3654. !     if ((r = Fcntl(fd, &lock, fcmd)) < 0) {
  3655. !         errno = (int) -r;
  3656. !         return -1;
  3657. !     }
  3658. !     return 0;
  3659. ! }
  3660.   
  3661.   int
  3662.   lockf(fd, cmd, size)
  3663. --- 3,11 ----
  3664.    * Placed in the public domain; do with me as you will!
  3665.    */
  3666.   
  3667.   #include <unistd.h>
  3668. ! #include <fcntl.h>
  3669. ! #include "lib.h"
  3670.   
  3671.   int
  3672.   lockf(fd, cmd, size)
  3673. ***************
  3674. *** 73,94 ****
  3675.       int cmd;
  3676.       long size;
  3677.   {
  3678. !     return do_lock(fd, cmd, size, 1);
  3679.   }
  3680.   
  3681. - int
  3682. - flock(fd, op)
  3683. -     int fd, op;
  3684. - {
  3685. -     int cmd;
  3686. - 
  3687. -     if (op & (LOCK_SH | LOCK_EX))
  3688. -         cmd = (op & LOCK_NB) ? F_TLOCK : F_LOCK;
  3689. -     else if (op & LOCK_UN)
  3690. -         cmd = F_ULOCK;
  3691. -     else {
  3692. -         errno = -EINVAL;
  3693. -         return -1;
  3694. -     }
  3695. -     return do_lock(fd, cmd, 0L, 0);
  3696. - }
  3697. --- 13,18 ----
  3698.       int cmd;
  3699.       long size;
  3700.   {
  3701. !     return _do_lock(fd, cmd, size, 1);
  3702.   }
  3703.   
  3704. *** /dev/null    Mon Feb 28 07:43:04 1994
  3705. --- lstat.c    Mon Feb 28 09:02:18 1994
  3706. ***************
  3707. *** 0 ****
  3708. --- 1,12 ----
  3709. + #include <stat.h>
  3710. + #include "lib.h"
  3711. + 
  3712. + __EXTERN int _do_stat __PROTO((const char *_path, struct stat *st, int lflag));
  3713. + 
  3714. + int
  3715. + lstat(path, st)
  3716. +     const char *path;
  3717. +     struct stat *st;
  3718. + {
  3719. +     return _do_stat(path, st, 1);
  3720. + }
  3721. *** 43.1    1994/02/15 19:34:32
  3722. --- mincl    1994/02/28 13:20:32
  3723. ***************
  3724. *** 23,51 ****
  3725.   
  3726.   #
  3727.   # ANSI stuff + support
  3728. ! ANSI =  abort.o atexit.o atof.o atol.o \
  3729.       bsearch.o \
  3730.       calloc.o clock.o ctime.o ctype.o \
  3731.       difftime.o div.o doprnt.o \
  3732.       eprintf.o \
  3733. !     fclose.o fdopen.o fflush.o fgetc.o fgets.o filbuf.o \
  3734. !     fopen.o fprintf.o fputc.o fputs.o fread.o fscanf.o fseek.o \
  3735.       fsetpos.o fungetc.o fwrite.o \
  3736.       getbuf.o getenv.o gets.o getw.o \
  3737. !     localtim.o ltoa.o main.o malloc.o \
  3738. !     printf.o qsort.o \
  3739. !     raise.o rand.o realloc.o \
  3740.       scanf.o sscanf.o setbuf.o setvbuf.o \
  3741.       setlocal.o sprintf.o strftime.o strtol.o strtoul.o system.o \
  3742.       tmpnam.o tmpfile.o toxxx.o \
  3743. !     vfprintf.o vprintf.o wcmb.o \
  3744. !     wcscat.o wcscmp.o wcscpy.o wcslen.o wnull.o
  3745.   
  3746.   #
  3747.   # other miscellaneous stuff
  3748.   PORT =  a64l.o alphasor.o abs.o buffindf.o ctermid.o cuserid.o \
  3749.       ffs.o findfile.o fopenp.o frwbin.o ftw.o \
  3750.       gethostn.o getlogin.o getopt.o getpages.o getpass.o getpw.o grp.o \
  3751.       mktemp.o nlist.o obstack.o \
  3752.       random.o regexp.o regsup.o \
  3753.       scandir.o strlwr.o strupr.o strrev.o sync.o \
  3754. --- 23,56 ----
  3755.   
  3756.   #
  3757.   # ANSI stuff + support
  3758. ! ANSI =  abort.o atexit.o atof.o atoi.o atol.o \
  3759.       bsearch.o \
  3760.       calloc.o clock.o ctime.o ctype.o \
  3761.       difftime.o div.o doprnt.o \
  3762.       eprintf.o \
  3763. !     fclose.o fdopen.o fflush.o fgetc.o fgetpos.o fgets.o filbuf.o \
  3764. !     fopen.o fopen_i.o fprintf.o fputc.o fputs.o \
  3765. !     fread.o freopen.o fscanf.o fseek.o ftell.o \
  3766.       fsetpos.o fungetc.o fwrite.o \
  3767.       getbuf.o getenv.o gets.o getw.o \
  3768. !     ldiv.o localtim.o ltoa.o \
  3769. !     main.o malloc.o \
  3770. !     printf.o puts.o \
  3771. !     qsort.o \
  3772. !     raise.o rand.o realloc.o rewind.o \
  3773.       scanf.o sscanf.o setbuf.o setvbuf.o \
  3774.       setlocal.o sprintf.o strftime.o strtol.o strtoul.o system.o \
  3775.       tmpnam.o tmpfile.o toxxx.o \
  3776. !     vfprintf.o vfscanf.o vprintf.o vscanf.o \
  3777. !     wcmb.o wcscat.o wcscmp.o wcscpy.o wcslen.o wnull.o
  3778.   
  3779.   #
  3780.   # other miscellaneous stuff
  3781.   PORT =  a64l.o alphasor.o abs.o buffindf.o ctermid.o cuserid.o \
  3782. +     enoent.o \
  3783.       ffs.o findfile.o fopenp.o frwbin.o ftw.o \
  3784.       gethostn.o getlogin.o getopt.o getpages.o getpass.o getpw.o grp.o \
  3785. +     l64a.o labs.o \
  3786.       mktemp.o nlist.o obstack.o \
  3787.       random.o regexp.o regsup.o \
  3788.       scandir.o strlwr.o strupr.o strrev.o sync.o \
  3789. ***************
  3790. *** 65,87 ****
  3791.   #
  3792.   # stuff to fake unix system calls 
  3793.   
  3794. ! UNIX=   access.o alarm.o console.o chdir.o chmod.o close.o dirent.o dup.o \
  3795. !     exec.o execp.o fcntl.o fork.o getcwd.o getpid.o getuid.o getrusag.o \
  3796. !     getdtabl.o getgroup.o ioctl.o isatty.o \
  3797. !     kill.o killpg.o link.o lockf.o lseek.o mkfifo.o mkdir.o mknod.o \
  3798. !     nice.o open.o \
  3799.       pause.o pipe.o perror.o pgrp.o popen.o psignal.o putenv.o \
  3800. !     read.o rename.o rmdir.o sbrk.o select.o sgtty.o sigactio.o \
  3801.       sigblock.o siglist.o signal.o sleep.o spawn.o spawnve.o spawnvp.o \
  3802.       setrlimi.o stat.o statfs.o symlink.o sysconf.o \
  3803. !     time.o times.o timeoday.o ttyname.o \
  3804. !     uname.o unlink.o unx2dos.o utime.o vfork.o wait.o wait3.o \
  3805. !     waitpid.o write.o
  3806.   
  3807.   #
  3808.   # termios stuff
  3809.   
  3810. ! TERMIOS=    cfspeed.o tcattr.o tcbreak.o tcdrain.o \
  3811.           tcflow.o tcflush.o tcpgrp.o
  3812.   
  3813.   #
  3814. --- 70,104 ----
  3815.   #
  3816.   # stuff to fake unix system calls 
  3817.   
  3818. ! UNIX=   access.o alarm.o \
  3819. !     console.o chdir.o chmod.o chown.o close.o closedir.o \
  3820. !     do_lock.o do_stat.o dup.o dup2.o \
  3821. !     execl.o execle.o execp.o execv.o execve.o \
  3822. !     fcntl.o flock.o fork.o fstat.o \
  3823. !     getcwd.o getdtabl.o getegid.o geteuid.o getgid.o getgroup.o \
  3824. !     getpid.o getppid.o \
  3825. !     getuid.o getrusag.o getwd.o \
  3826. !     inode.o ioctl.o isatty.o isctty.o \
  3827. !     kill.o killpg.o link.o lockf.o lseek.o lstat.o \
  3828. !     mkfifo.o mkdir.o mknod.o \
  3829. !     nice.o open.o opendir.o \
  3830.       pause.o pipe.o perror.o pgrp.o popen.o psignal.o putenv.o \
  3831. !     read.o readdir.o rewinddi.o rename.o rmdir.o \
  3832. !     sbrk.o seekdir.o select.o \
  3833. !     setegid.o seteuid.o setgid.o setregid.o setreuid.o setuid.o \
  3834. !     sgtty.o sigactio.o \
  3835.       sigblock.o siglist.o signal.o sleep.o spawn.o spawnve.o spawnvp.o \
  3836.       setrlimi.o stat.o statfs.o symlink.o sysconf.o \
  3837. !     telldir.o time.o times.o timeoday.o ttyname.o \
  3838. !     uidgid.o uname.o unlink.o unx2dos.o utime.o \
  3839. !     vfork.o \
  3840. !     wait.o wait3.o waitpid.o write.o
  3841.   
  3842.   #
  3843.   # termios stuff
  3844.   
  3845. ! TERMIOS=    cfgetisp.o cfgetosp.o cfsetisp.o cfsetosp.o \
  3846. !         tcattr.o tcbreak.o tcdrain.o \
  3847.           tcflow.o tcflush.o tcpgrp.o
  3848.   
  3849.   #
  3850. *** 43.1    1994/02/15 19:34:32
  3851. --- open.c    1994/02/27 14:07:44
  3852. ***************
  3853. *** 140,146 ****
  3854.               rv = -ENOENT;
  3855.       }
  3856.   
  3857. !     if(rv < (__SMALLEST_VALID_HANDLE)) {
  3858.           errno = -rv;
  3859.           return __SMALLEST_VALID_HANDLE - 1;
  3860.       }
  3861. --- 140,148 ----
  3862.               rv = -ENOENT;
  3863.       }
  3864.   
  3865. !     if (rv < (__SMALLEST_VALID_HANDLE)) {
  3866. !         if ((rv == -EPATH) && (_enoent(filename)))
  3867. !             rv = -ENOENT;
  3868.           errno = -rv;
  3869.           return __SMALLEST_VALID_HANDLE - 1;
  3870.       }
  3871. *** /dev/null    Mon Feb 28 07:43:04 1994
  3872. --- opendir.c    Mon Feb 28 04:56:52 1994
  3873. ***************
  3874. *** 0 ****
  3875. --- 1,98 ----
  3876. + /* opendir routine */
  3877. + 
  3878. + /* under MiNT (v0.9 or better) these use the appropriate system calls.
  3879. +  * under TOS or older versions of MiNT, they use Fsfirst/Fsnext
  3880. +  *
  3881. +  * Written by Eric R. Smith and placed in the public domain
  3882. +  */
  3883. + 
  3884. + #include <stdlib.h>
  3885. + #include <string.h>
  3886. + #include <types.h>
  3887. + #include <limits.h>
  3888. + #include <dirent.h>
  3889. + #include <errno.h>
  3890. + #include <osbind.h>
  3891. + #include <mintbind.h>
  3892. + #include "lib.h"
  3893. + 
  3894. + extern int __mint;
  3895. + extern ino_t __inode;    /* in stat.c */
  3896. + 
  3897. + DIR *
  3898. + opendir(uname)
  3899. +     const char *uname;
  3900. + {
  3901. +     DIR *d;
  3902. +     long r;
  3903. +     _DTA *olddta;
  3904. +     char name[PATH_MAX];
  3905. +     char dirpath[PATH_MAX];
  3906. +     char *p;
  3907. + 
  3908. +     d = malloc(sizeof(DIR));
  3909. +     if (!d) {
  3910. +         errno = ENOMEM;
  3911. +         return d;
  3912. +     }
  3913. + 
  3914. +     _unx2dos(uname, name);
  3915. + 
  3916. +     if (__mint > 8) {
  3917. +         r = Dopendir(name, 0);
  3918. +         if ( (r & 0xff000000L) == 0xff000000L ) {
  3919. +             errno = (int) -r;
  3920. +             free(d);
  3921. +             return 0;
  3922. +         }
  3923. +         d->handle = r;
  3924. +         d->buf.d_off = 0;
  3925. +         return d;
  3926. +     }
  3927. + 
  3928. + /* TOS emulation routines */
  3929. + 
  3930. +     p = name;
  3931. +     if (p) {
  3932. +     /* find the end of the string */
  3933. +         for (p = name; *p; p++) ;
  3934. + 
  3935. +     /* make sure the string ends in '\' */
  3936. +         if (*(p-1) != '\\') {
  3937. +             *p++ = '\\';
  3938. +         }
  3939. +     }
  3940. + 
  3941. +     strcpy(p, "*.*");
  3942. +     olddta = Fgetdta();
  3943. +     Fsetdta(&(d->dta));
  3944. +     r = Fsfirst(name, 0x17);
  3945. +     Fsetdta(olddta);
  3946. + 
  3947. +     if (r == 0) {
  3948. +         d->status = _STARTSEARCH;
  3949. +     } else if (r == -ENOENT) {
  3950. +         d->status = _NMFILE;
  3951. +     } else {
  3952. +         free(d);
  3953. +         errno = (int) -r;
  3954. +         return 0;
  3955. +     }
  3956. +     d->buf.d_off = 0;
  3957. + /* for rewinddir: if necessary, build a relative path */
  3958. +     if (name[1] == ':') {    /* absolute path, no problem */
  3959. +         dirpath[0] = 0;
  3960. +     } else {
  3961. +         dirpath[0] = Dgetdrv() + 'A';
  3962. +         dirpath[1] = ':';
  3963. +         dirpath[2] = 0;
  3964. +         if (*name != '\\')
  3965. +             (void)Dgetpath(dirpath+2, 0);
  3966. +     }
  3967. +     d->dirname = malloc(strlen(dirpath)+strlen(name)+1);
  3968. +     if (d->dirname) {
  3969. +         strcpy(d->dirname, dirpath);
  3970. +         strcat(d->dirname, name);
  3971. +     }
  3972. +     return d;
  3973. + }
  3974. *** /dev/null    Mon Feb 28 07:43:04 1994
  3975. --- readdir.c    Mon Feb 28 04:57:50 1994
  3976. ***************
  3977. *** 0 ****
  3978. --- 1,74 ----
  3979. + /* readdir routine */
  3980. + 
  3981. + /* under MiNT (v0.9 or better) these use the appropriate system calls.
  3982. +  * under TOS or older versions of MiNT, they use Fsfirst/Fsnext
  3983. +  *
  3984. +  * Written by Eric R. Smith and placed in the public domain
  3985. +  */
  3986. + 
  3987. + #include <stdlib.h>
  3988. + #include <string.h>
  3989. + #include <types.h>
  3990. + #include <limits.h>
  3991. + #include <dirent.h>
  3992. + #include <errno.h>
  3993. + #include <osbind.h>
  3994. + #include <mintbind.h>
  3995. + #include "lib.h"
  3996. + 
  3997. + extern int __mint;
  3998. + extern ino_t __inode;    /* in stat.c */
  3999. + 
  4000. + struct dirent *
  4001. + readdir(d)
  4002. +     DIR *d;
  4003. + {
  4004. +     struct dbuf {
  4005. +         long ino;
  4006. +         char name[NAME_MAX + 1];
  4007. +     } dbuf;
  4008. +     long r;
  4009. +     _DTA *olddta;
  4010. +     struct dirent *dd = &d->buf;
  4011. + 
  4012. +     if (__mint > 8) {
  4013. +         r = (int)Dreaddir((int)(NAME_MAX+1+sizeof(long)), d->handle, (char *) &dbuf);
  4014. +         if (r == -ENMFIL)
  4015. +             return 0;
  4016. +         else if (r) {
  4017. +             errno = (int) -r;
  4018. +             return 0;
  4019. +         }
  4020. +         dd->d_ino = dbuf.ino;
  4021. +         dd->d_off++;
  4022. +         dd->d_reclen = (short)strlen(dbuf.name);
  4023. +         strcpy(dd->d_name, dbuf.name);
  4024. +         return dd;
  4025. +     }
  4026. + /* ordinary TOS search, using Fsnext. Note that the first time through,
  4027. +  * Fsfirst has already provided valid data for us; for subsequent
  4028. +  * searches, we need Fsnext.
  4029. +  */
  4030. +     if (d->status == _NMFILE)
  4031. +         return 0;
  4032. +     if (d->status == _STARTSEARCH) {
  4033. +         d->status = _INSEARCH;
  4034. +     } else {
  4035. +         olddta = Fgetdta();
  4036. +         Fsetdta(&(d->dta));
  4037. +         r = Fsnext();
  4038. +         Fsetdta(olddta);
  4039. +         if (r == -ENMFIL) {
  4040. +             d->status = _NMFILE;
  4041. +             return 0;
  4042. +         } else if (r) {
  4043. +             errno = (int)-r;
  4044. +             return 0;
  4045. +         }
  4046. +     }
  4047. +     dd->d_ino = __inode++;
  4048. +     dd->d_off++;
  4049. +     _dos2unx(d->dta.dta_name, dd->d_name);
  4050. +     dd->d_reclen = (short)strlen(dd->d_name);
  4051. +     return dd;
  4052. + }
  4053. *** /dev/null    Mon Feb 28 07:43:04 1994
  4054. --- rewinddi.c    Mon Feb 28 04:59:42 1994
  4055. ***************
  4056. *** 0 ****
  4057. --- 1,50 ----
  4058. + /* rewinddir routine */
  4059. + 
  4060. + /* under MiNT (v0.9 or better) these use the appropriate system calls.
  4061. +  * under TOS or older versions of MiNT, they use Fsfirst/Fsnext
  4062. +  *
  4063. +  * Written by Eric R. Smith and placed in the public domain
  4064. +  */
  4065. + 
  4066. + #include <stdlib.h>
  4067. + #include <string.h>
  4068. + #include <types.h>
  4069. + #include <limits.h>
  4070. + #include <dirent.h>
  4071. + #include <errno.h>
  4072. + #include <osbind.h>
  4073. + #include <mintbind.h>
  4074. + #include "lib.h"
  4075. + 
  4076. + extern int __mint;
  4077. + extern ino_t __inode;    /* in stat.c */
  4078. + 
  4079. + void
  4080. + rewinddir(dirp)
  4081. +     DIR *dirp;
  4082. + {
  4083. +     long r;
  4084. +     _DTA *olddta;
  4085. + 
  4086. +     if (__mint >= 9) {
  4087. +         (void)Drewinddir(dirp->handle);
  4088. +         dirp->buf.d_off = 0;
  4089. +         return;
  4090. +     }
  4091. + 
  4092. + /* I wish POSIX had allowed an error to occur here! */
  4093. +     if (!dirp->dirname) {
  4094. +         return;
  4095. +     }
  4096. + 
  4097. +     olddta = Fgetdta();
  4098. +     Fsetdta(&(dirp->dta));
  4099. +     r = Fsfirst(dirp->dirname, 0x17);
  4100. +     Fsetdta(olddta);
  4101. +     if (r == 0) {
  4102. +         dirp->status = _STARTSEARCH;
  4103. +     } else {
  4104. +         dirp->status = _NMFILE;
  4105. +     }
  4106. +     dirp->buf.d_off = 0;
  4107. + }
  4108. *** 43.1    1994/02/15 19:34:32
  4109. --- scanf.c    1994/02/24 16:42:56
  4110. ***************
  4111. *** 259,267 ****
  4112.               charcnt++;
  4113.               c = (*get) (ip);
  4114.               if (c == EOF)
  4115. !               goto done;
  4116.               if (c == 'x' || c == 'X')
  4117.                 goto skip1;
  4118.             }
  4119.           else if (neg == -1)
  4120.             {
  4121. --- 259,272 ----
  4122.               charcnt++;
  4123.               c = (*get) (ip);
  4124.               if (c == EOF)
  4125. !               goto savnum;
  4126.               if (c == 'x' || c == 'X')
  4127.                 goto skip1;
  4128. +             /* else unget the character, it may already be a
  4129. +                        non-digit and the number would be rejected */
  4130. +             charcnt--;
  4131. +             (*unget) (c, ip);
  4132. +             c = '0';
  4133.             }
  4134.           else if (neg == -1)
  4135.             {
  4136. *** /dev/null    Mon Feb 28 07:43:04 1994
  4137. --- seekdir.c    Mon Feb 28 05:05:10 1994
  4138. ***************
  4139. *** 0 ****
  4140. --- 1,28 ----
  4141. + /* seekdir routine */
  4142. + 
  4143. + /* under MiNT (v0.9 or better) these use the appropriate system calls.
  4144. +  * under TOS or older versions of MiNT, they use Fsfirst/Fsnext
  4145. +  *
  4146. +  * Written by Eric R. Smith and placed in the public domain
  4147. +  */
  4148. + 
  4149. + #include <types.h>
  4150. + #include <limits.h>
  4151. + #include <dirent.h>
  4152. + #include "lib.h"
  4153. + 
  4154. + extern int __mint;
  4155. + 
  4156. + /* not POSIX */
  4157. + 
  4158. + void
  4159. + seekdir(dirp, loc)
  4160. +     DIR *dirp;
  4161. +     off_t loc;
  4162. + {
  4163. +     rewinddir(dirp);
  4164. +     while (dirp->buf.d_off != loc) {
  4165. +         if (!readdir(dirp))
  4166. +             break;
  4167. +     }
  4168. + }
  4169. *** 43.1    1994/02/15 19:34:32
  4170. --- stat.c    1994/02/28 15:34:04
  4171. ***************
  4172. *** 1,332 ****
  4173. - /*
  4174. -  * stat, fstat, lstat emulation for TOS
  4175. -  * written by Eric R. Smith and placed in the public domain
  4176. -  */
  4177. - 
  4178. - #include <limits.h>
  4179. - #include <types.h>
  4180.   #include <stat.h>
  4181. - #include <ctype.h>
  4182. - #include <errno.h>
  4183. - #include <osbind.h>
  4184. - #include <mintbind.h>
  4185. - #include <string.h>
  4186. - #include <time.h>
  4187. - #include <unistd.h>
  4188. - #include <support.h>
  4189. - #include <ioctl.h>    /* for FSTAT */
  4190.   #include "lib.h"
  4191.   
  4192. ! extern int __mint;
  4193. ! 
  4194. ! ino_t    __inode = 32;        /* used in readdir also */
  4195. ! 
  4196. ! /* for backwards compatibilty: if nonzero, files are checked to see if
  4197. !  * they have the TOS executable magic number in them
  4198. !  */
  4199. ! 
  4200. ! int    _x_Bit_set_in_stat = 0;
  4201. ! 
  4202. ! 
  4203. ! 
  4204. ! /* date for files (like root directories) that don't have one */
  4205. ! #define OLDDATE _unixtime(0,0)
  4206. ! 
  4207. ! /*
  4208. !  * macro for converting a long in DOS format to one in Unix format. "x"
  4209. !  * _must_ be an lvalue!
  4210. !  */
  4211. ! 
  4212. ! #define CONVERT(x) (x = _unixtime( ((short *)&x)[0], ((short *)&x)[1] ))
  4213. ! 
  4214. ! /*
  4215. !  * common routine for stat() and lstat(); if "lflag" is 0, then symbolic
  4216. !  * links are automatically followed (like stat), if 1 then they are not
  4217. !  * (like lstat)
  4218. !  */
  4219. ! 
  4220. ! static int do_stat __PROTO((const char *_path, struct stat *st, 
  4221. !     int lflag));
  4222. ! 
  4223. ! static int
  4224. ! do_stat(_path, st, lflag)
  4225. !     const char *_path;
  4226. !     struct stat *st;
  4227. !     int lflag;
  4228. ! {
  4229. !     long    r;
  4230. !     _DTA    *olddta;
  4231. !     int    nval;
  4232. !     char    path[PATH_MAX];
  4233. !     char    *ext, drv;
  4234. !     int    fd;
  4235. !     short    magic;
  4236. !     _DTA    d;
  4237. !     int    isdot = 0;
  4238. ! 
  4239. !     if (!_path) {
  4240. !         errno = EFAULT;
  4241. !         return -1;
  4242. !     }
  4243. ! 
  4244. ! /*
  4245. !  * _unx2dos returns 1 for device names (like /dev/con)
  4246. !  */
  4247. !     nval = _unx2dos(_path, path);
  4248. ! 
  4249. ! /* for MiNT 0.9 and up, we use the built in stat() call */
  4250. !     if (__mint >= 9) {
  4251. !         r = Fxattr(lflag, path, st);
  4252. !         if (r) {
  4253. !             errno = (int) -r;
  4254. !             return -1;
  4255. !         }
  4256. !         CONVERT(st->st_mtime);
  4257. !         CONVERT(st->st_atime);
  4258. !         CONVERT(st->st_ctime);
  4259. !     /* Most versions of Unix count in 512 byte blocks */
  4260. !         st->st_blocks = (st->st_blocks * st->st_blksize) / 512;
  4261. !     /* if we hit a symbolic link, try to get its size right */
  4262. !         if (lflag && ((st->st_mode & S_IFMT) == S_IFLNK)) {
  4263. !             char buf[PATH_MAX + 1];
  4264. !             char buf1[PATH_MAX + 1];
  4265. !             r = Freadlink(PATH_MAX, buf, path);
  4266. !             if (r < 0)
  4267. !               {
  4268. !                 errno = (int) -r;
  4269. !                 return -1;
  4270. !               }
  4271. !             buf[PATH_MAX] = 0;
  4272. !             _dos2unx (buf, buf1);
  4273. !             st->st_size = strlen (buf1);
  4274. !         }
  4275. !         return 0;
  4276. !     }
  4277. ! 
  4278. ! /* otherwise, check to see if we have a name like CON: or AUX: */
  4279. !     if (nval == 1) {
  4280. !         st->st_mode = S_IFCHR | 0600;
  4281. !         st->st_attr = 0;
  4282. !         st->st_ino = ++__inode;
  4283. !         st->st_rdev = 0;
  4284. !         st->st_mtime = st->st_ctime = st->st_atime = 
  4285. !             time((time_t *)0) - 2;
  4286. !         st->st_dev = 0;
  4287. !         st->st_nlink = 1;
  4288. !         st->st_uid = geteuid();
  4289. !         st->st_gid = getegid();
  4290. !         st->st_size = st->st_blocks = 0;
  4291. !         st->st_blksize = 1024;
  4292. !         return 0;
  4293. !     }
  4294. ! 
  4295. ! /* A file name: check for root directory of a drive */
  4296. !     if (path[0] == '\\' && path[1] == 0) {
  4297. !         drv = Dgetdrv() + 'A';
  4298. !         goto rootdir;
  4299. !     }
  4300. ! 
  4301. !     if ( ((drv = path[0]) != 0) && path[1] == ':' &&
  4302. !          (path[2] == 0 || (path[2] == '\\' && path[3] == 0)) ) {
  4303. ! rootdir:
  4304. !         st->st_mode = S_IFDIR | 0755;
  4305. !         st->st_attr = FA_DIR;
  4306. !         st->st_dev = isupper(drv) ? drv - 'A' : drv - 'a';
  4307. !         st->st_ino = 2;
  4308. !         st->st_mtime = st->st_ctime = st->st_atime = OLDDATE;
  4309. !         goto fill_dir;
  4310. !     }
  4311. ! 
  4312. ! /* forbid wildcards in path names */
  4313. !     if (index(path, '*') || index(path, '?')) {
  4314. !         errno = ENOENT;
  4315. !         return -1;
  4316. !     }
  4317. ! 
  4318. ! /* OK, here we're going to have to do an Fsfirst to get the date */
  4319. ! /* NOTE: Fsfirst(".",-1) or Fsfirst("..",-1) both fail under TOS,
  4320. !  * so we kludge around this by using the fact that Fsfirst(".\*.*"
  4321. !  * or "..\*.*" will return the correct file first (except, of course,
  4322. !  * in root directories :-( ).
  4323. !  * NOTE2: Some versions of TOS don't like Fsfirst("RCS\\", -1) either,
  4324. !  * so we do the same thing if the path ends in '\\'.
  4325. !  */
  4326. ! 
  4327. ! /* find the end of the string */
  4328. !     for (ext = path; ext[0] && ext[1]; ext++) ;
  4329. ! 
  4330. ! /* add appropriate kludge if necessary */
  4331. !     if (*ext == '.' && (ext == path || ext[-1] == '\\' || ext[-1] == '.')) {
  4332. !         isdot = 1;
  4333. !         strcat(path, "\\*.*");
  4334. !     } else if (*ext == '\\') {
  4335. !         isdot = 1;
  4336. !         strcat(path, "*.*");
  4337. !     }
  4338. !     olddta = Fgetdta();
  4339. !     Fsetdta(&d);
  4340. !     r = Fsfirst(path, 0xff);
  4341. !     Fsetdta(olddta);
  4342. !     if (r < 0) {
  4343. !         if (isdot && r == -ENOENT) goto rootdir;
  4344. !         errno = (int) -r;
  4345. !         return -1;
  4346. !     }    
  4347. ! 
  4348. !     if (isdot && ((d.dta_name[0] != '.') || (d.dta_name[1]))) {
  4349. !         goto rootdir;
  4350. !     }
  4351. ! 
  4352. !     st->st_mtime = st->st_ctime = st->st_atime =
  4353. !         _unixtime(d.dta_time, d.dta_date);
  4354. !     if (((drv = *path) != 0) && path[1] == ':')
  4355. !         st->st_dev = toupper(drv) - 'A';
  4356. !     else
  4357. !         st->st_dev = Dgetdrv();
  4358. ! 
  4359. !     st->st_ino = __inode++;
  4360. !     st->st_attr = d.dta_attribute;
  4361. !     if (__mint && st->st_dev == ('Q' - 'A'))
  4362. !             st->st_mode = 0644 | S_IFIFO;
  4363. !     else {
  4364. !         st->st_mode = 0644 | (st->st_attr & FA_DIR ?
  4365. !                   S_IFDIR | 0111 : S_IFREG);
  4366. !     }
  4367. ! 
  4368. !     if (st->st_attr & FA_RDONLY)
  4369. !         st->st_mode &= ~0222;    /* no write permission */
  4370. !     if (st->st_attr & FA_HIDDEN)
  4371. !         st->st_mode &= ~0444;    /* no read permission */
  4372. ! 
  4373. ! /* check for a file with an executable extension */
  4374. !     ext = strrchr(_path, '.');
  4375. !     if (ext) {
  4376. !         if (!strcmp(ext, ".ttp") || !strcmp(ext, ".prg") ||
  4377. !             !strcmp(ext, ".tos") || !strcmp(ext, ".g") ||
  4378. !             !strcmp(ext, ".sh")     || !strcmp(ext, ".bat")) {
  4379. !             st->st_mode |= 0111;
  4380. !         }
  4381. !     }
  4382. !     if ( (st->st_mode & S_IFMT) == S_IFREG) {
  4383. !         if (_x_Bit_set_in_stat) {
  4384. !             if ((fd = (int) Fopen(path,0)) < 0) {
  4385. !                 errno = -fd;
  4386. !                 return -1;
  4387. !             }
  4388. !             magic = 0;
  4389. !             (void)Fread(fd,2,(char *)&magic);
  4390. !             (void)Fclose(fd);
  4391. !             if (magic == 0x601A    /* TOS executable */
  4392. !                 || magic == 0x2321) /* "#!" shell file */
  4393. !                 st->st_mode |= 0111;
  4394. !         }
  4395. !         st->st_size = d.dta_size;
  4396. !     /* in Unix, blocks are measured in 512 bytes */
  4397. !         st->st_blocks = (st->st_size + 511) / 512;
  4398. !         st->st_nlink = 1; /* we dont have hard links */
  4399. !     } else {
  4400. ! fill_dir:
  4401. !         st->st_size = 1024;
  4402. !         st->st_blocks = 2;
  4403. !         st->st_nlink = 2;    /* "foo" && "foo/.." */
  4404. !     }
  4405. ! 
  4406. !     st->st_rdev = 0;
  4407. !     st->st_uid = geteuid();    /* the current user owns every file */
  4408. !     st->st_gid = getegid();
  4409. !     st->st_blksize = 1024;
  4410. !     return 0;
  4411. ! }
  4412. ! 
  4413. ! 
  4414. ! /* 
  4415. !  * fstat: if we're not running under MiNT, this is pretty bogus.
  4416. !  * what we can really find is:
  4417. !  * modification time: via Fdatime()
  4418. !  * file size: via Fseek()
  4419. !  * fortunately, these are the things most programs are interested in.
  4420. !  * BUG: passing an invalid file descriptor gets back a stat structure for
  4421. !  * a tty.
  4422. !  */
  4423. ! 
  4424. ! int
  4425. ! fstat(fd, st)
  4426. ! int fd;
  4427. ! struct stat *st;
  4428. ! {
  4429. !     long oldplace, r;
  4430. !     _DOSTIME timeptr;
  4431. !     short magic;
  4432. ! 
  4433. !     if (__mint >= 9) {        /* use FSTAT Fcntl */
  4434. !         r = Fcntl(fd, (long)st, FSTAT);
  4435. !         if (r) {
  4436. !             errno = (int) -r;
  4437. !             return -1;
  4438. !         }
  4439. !         CONVERT(st->st_mtime);
  4440. !         CONVERT(st->st_atime);
  4441. !         CONVERT(st->st_ctime);
  4442. !         st->st_blocks = (st->st_blocks * st->st_blksize) / 512;
  4443. !         return 0;
  4444. !     }
  4445. ! 
  4446. !     r = Fdatime(&timeptr, fd, 0);
  4447. !     if (r < 0) {            /* assume TTY */
  4448. !         st->st_mode = S_IFCHR | 0600;
  4449. !         st->st_attr = 0;
  4450. !         st->st_mtime = st->st_ctime = st->st_atime =
  4451. !             time((time_t *)0) - 2;
  4452. !         st->st_size = 0;
  4453. !     } else {
  4454. !         st->st_mtime = st->st_atime = st->st_ctime =
  4455. !             _unixtime(timeptr.time, timeptr.date);
  4456. !         st->st_mode = S_IFREG | 0644;        /* this may be false */
  4457. !         st->st_attr = 0;            /* because this is */
  4458. ! 
  4459. !     /* get current file location */
  4460. !         oldplace = Fseek(0L, fd, SEEK_CUR);
  4461. !         if (oldplace < 0) {        /* can't seek -- must be pipe */
  4462. !             st->st_mode = S_IFIFO | 0644;
  4463. !             st->st_size = 1024;
  4464. !         } else {
  4465. !             r = Fseek(0L, fd, SEEK_END);    /* go to end of file */
  4466. !             st->st_size = r;
  4467. !             (void)Fseek(0L, fd, SEEK_SET);    /* go to start of file */
  4468. !             /* check for executable file */
  4469. !             if (Fread(fd, 2, (char *)&magic) == 2) {
  4470. !                 if (magic == 0x601a || magic == 0x2321)
  4471. !                     st->st_mode |= 0111;
  4472. !             }
  4473. !             (void)Fseek(oldplace, fd, SEEK_SET);
  4474. !         }
  4475. !     }
  4476. ! 
  4477. ! /* all this stuff is likely bogus as well. sigh. */
  4478. !     st->st_dev = Dgetdrv();
  4479. !     st->st_rdev = 0;
  4480. !     st->st_uid = getuid();
  4481. !     st->st_gid = getgid();
  4482. !     st->st_blksize = 1024;
  4483. ! /* note: most Unixes measure st_blocks in 512 byte units */
  4484. !     st->st_blocks = (st->st_size + 511) / 512;
  4485. !     st->st_ino = ++__inode;
  4486. !     st->st_nlink = 1;
  4487. !     return 0;
  4488. ! }
  4489. ! 
  4490. ! int
  4491. ! lstat(path, st)
  4492. !     const char *path;
  4493. !     struct stat *st;
  4494. ! {
  4495. !     return do_stat(path, st, 1);
  4496. ! }
  4497.   
  4498.   int
  4499.   stat(path, st)
  4500.       const char *path;
  4501.       struct stat *st;
  4502.   {
  4503. !     return do_stat(path, st, 0);
  4504.   }
  4505. --- 1,12 ----
  4506.   #include <stat.h>
  4507.   #include "lib.h"
  4508.   
  4509. ! __EXTERN int _do_stat __PROTO((const char *_path, struct stat *st, int lflag));
  4510.   
  4511.   int
  4512.   stat(path, st)
  4513.       const char *path;
  4514.       struct stat *st;
  4515.   {
  4516. !     return _do_stat(path, st, 0);
  4517.   }
  4518. *** 43.1    1994/02/15 19:34:32
  4519. --- sync.c    1994/02/28 02:19:34
  4520. ***************
  4521. *** 17,22 ****
  4522. --- 17,23 ----
  4523.   #include <stat.h>
  4524.   #include <errno.h>
  4525.   #include <support.h>
  4526. + #include <string.h>
  4527.   
  4528.   extern int __mint;
  4529.   
  4530. ***************
  4531. *** 34,49 ****
  4532.    *    query all known drives for a valid MinixFs
  4533.    *    if we find one, sync it.
  4534.    */
  4535. ! int sync(void)
  4536.   {
  4537.       long            magic;
  4538.       unsigned long    drives;
  4539.       int                i, rv;
  4540. !     char            path[] = "A:\\";
  4541. !     
  4542.       if (!__mint)
  4543.           return 0;
  4544.   
  4545.       drives = Dsetdrv(Dgetdrv());
  4546.   
  4547.       drives &= ~0x3;    /* don't sync the floppys */
  4548. --- 35,53 ----
  4549.    *    query all known drives for a valid MinixFs
  4550.    *    if we find one, sync it.
  4551.    */
  4552. ! int
  4553. ! sync()
  4554.   {
  4555.       long            magic;
  4556.       unsigned long    drives;
  4557.       int                i, rv;
  4558. !     char path[4];
  4559. ! 
  4560.       if (!__mint)
  4561.           return 0;
  4562.   
  4563. +     strcpy(path, "A:\\");
  4564. +     
  4565.       drives = Dsetdrv(Dgetdrv());
  4566.   
  4567.       drives &= ~0x3;    /* don't sync the floppys */
  4568. ***************
  4569. *** 76,92 ****
  4570.    *    since MFS 605 always syncs all the buffers, we don't bother
  4571.    *    to get the full path.
  4572.    */
  4573. ! int fsync(fd)
  4574.       int    fd;
  4575.   {
  4576.       int            rv;
  4577.       long        magic     = 0L;
  4578. !     char        path[]    = "A:\\";
  4579.       struct stat    statbuf;
  4580.   
  4581.       if (!__mint)
  4582.           return 0;
  4583.       
  4584.       if (fstat(fd, &statbuf))
  4585.           return -1;            /* errno set from fstat */
  4586.   
  4587. --- 80,98 ----
  4588.    *    since MFS 605 always syncs all the buffers, we don't bother
  4589.    *    to get the full path.
  4590.    */
  4591. ! int
  4592. ! fsync(fd)
  4593.       int    fd;
  4594.   {
  4595.       int            rv;
  4596.       long        magic     = 0L;
  4597. !     char        path[4];
  4598.       struct stat    statbuf;
  4599.   
  4600.       if (!__mint)
  4601.           return 0;
  4602.       
  4603. +     strcpy(path, "A:\\");
  4604.       if (fstat(fd, &statbuf))
  4605.           return -1;            /* errno set from fstat */
  4606.   
  4607. ***************
  4608. *** 114,120 ****
  4609.    * so just do 'cat junk1 >junk2;sync' from your shell
  4610.    * and listen to your harddisk.
  4611.    */
  4612. ! int main (void)
  4613.   {
  4614.       sync();
  4615.       return 0;
  4616. --- 120,127 ----
  4617.    * so just do 'cat junk1 >junk2;sync' from your shell
  4618.    * and listen to your harddisk.
  4619.    */
  4620. ! int
  4621. ! main()
  4622.   {
  4623.       sync();
  4624.       return 0;
  4625. *** 43.1    1994/02/15 19:34:32
  4626. --- tcdrain.c    1994/02/19 13:03:38
  4627. ***************
  4628. *** 1,17 ****
  4629.   /*
  4630.   Public domain termios tcdrain() for the MiNT library
  4631. ! 10 October 1993 entropy@terminator.rs.itd.umich.edu -- first attempt
  4632.   */
  4633.   
  4634.   #include <errno.h>
  4635.   #include <types.h>
  4636.   #include <termios.h>
  4637.   
  4638.   int
  4639.   tcdrain(fd)
  4640.     int fd;
  4641.   {
  4642. !   errno = -EINVAL;
  4643. !   return -1;
  4644.   }
  4645.   
  4646. --- 1,36 ----
  4647.   /*
  4648.   Public domain termios tcdrain() for the MiNT library
  4649. ! 10 October 1993 entropy@terminator.rs.itd.umich.edu
  4650.   */
  4651.   
  4652.   #include <errno.h>
  4653.   #include <types.h>
  4654. + #include <ioctl.h>
  4655. + #include <mintbind.h>
  4656.   #include <termios.h>
  4657.   
  4658. + extern int __mint;
  4659. + 
  4660.   int
  4661.   tcdrain(fd)
  4662.     int fd;
  4663.   {
  4664. !   long outq;
  4665. !   long r;
  4666. ! 
  4667. !   if (__mint < 0x10a)
  4668. !   {
  4669. !     errno = -EINVAL;
  4670. !     return -1;
  4671. !   }
  4672. !   do
  4673. !   {
  4674. !     r = Fcntl((short) fd, &outq, TIOCOUTQ);
  4675. !     if (r < 0) {
  4676. !       errno = (int) -r;
  4677. !       return -1;
  4678. !     }
  4679. !   } while (outq != 0);
  4680. !   return 0;
  4681.   }
  4682.   
  4683. *** 43.1    1994/02/15 19:34:32
  4684. --- tcflush.c    1994/02/19 12:23:00
  4685. ***************
  4686. *** 33,39 ****
  4687.         errno = EINVAL;
  4688.         return -1;
  4689.     }
  4690. !   r = Fcntl((short) fd, flushtype, TIOCFLUSH);
  4691.     if (r < 0) {
  4692.       errno = (int) -r;
  4693.       return -1;
  4694. --- 33,39 ----
  4695.         errno = EINVAL;
  4696.         return -1;
  4697.     }
  4698. !   r = Fcntl((short) fd, &flushtype, TIOCFLUSH);
  4699.     if (r < 0) {
  4700.       errno = (int) -r;
  4701.       return -1;
  4702. *** /dev/null    Mon Feb 28 07:43:04 1994
  4703. --- telldir.c    Mon Feb 28 05:04:00 1994
  4704. ***************
  4705. *** 0 ****
  4706. --- 1,24 ----
  4707. + /* telldir routine */
  4708. + 
  4709. + /* under MiNT (v0.9 or better) these use the appropriate system calls.
  4710. +  * under TOS or older versions of MiNT, they use Fsfirst/Fsnext
  4711. +  *
  4712. +  * Written by Eric R. Smith and placed in the public domain
  4713. +  */
  4714. + 
  4715. + #include <types.h>
  4716. + #include <limits.h>
  4717. + #include <dirent.h>
  4718. + #include "lib.h"
  4719. + 
  4720. + extern int __mint;
  4721. + 
  4722. + /* not POSIX */
  4723. + 
  4724. + off_t
  4725. + telldir(dirp)
  4726. +     DIR *dirp;
  4727. + {
  4728. +     return dirp->buf.d_off;
  4729. + }
  4730. + 
  4731. *** 43.1    1994/02/15 19:34:32
  4732. --- unlink.c    1994/02/27 11:55:56
  4733. ***************
  4734. *** 32,37 ****
  4735. --- 32,39 ----
  4736.       r = (int)Fdelete(name);
  4737.   
  4738.       if (r < 0) {
  4739. +         if ((r == -EPATH) && (_enoent(name)))
  4740. +             r = -ENOENT;
  4741.           errno = -r;
  4742.           return -1;
  4743.       }
  4744. *** /dev/null    Mon Feb 28 07:43:04 1994
  4745. --- vfscanf.c    Mon Feb 28 06:19:02 1994
  4746. ***************
  4747. *** 0 ****
  4748. --- 1,14 ----
  4749. + /* from Dale Schumacher's dLibs */
  4750. + 
  4751. + #include <stdio.h>
  4752. + #include <stdarg.h>
  4753. + #include "lib.h"
  4754. + 
  4755. + int
  4756. + vfscanf(fp, fmt, arg)
  4757. +   FILE *fp;
  4758. +   const char *fmt;
  4759. +   va_list arg;
  4760. + {
  4761. +   return (_scanf(fp, fgetc, fungetc, fmt, arg));
  4762. + }
  4763. *** /dev/null    Mon Feb 28 07:43:04 1994
  4764. --- vscanf.c    Mon Feb 28 06:17:16 1994
  4765. ***************
  4766. *** 0 ****
  4767. --- 1,14 ----
  4768. + /* from Dale Schumacher's dLibs */
  4769. + 
  4770. + #include <stdio.h>
  4771. + #include <stdarg.h>
  4772. + #include "lib.h"
  4773. + 
  4774. + int
  4775. + vscanf(fmt, arg)
  4776. +   const char *fmt;
  4777. +   va_list arg;
  4778. + {
  4779. +   return (_scanf(stdin, fgetc, fungetc, fmt, arg));
  4780. + }
  4781. + 
  4782. *** 43.1    1994/02/15 20:20:36
  4783. --- purec/Makefile    1994/02/28 17:56:40
  4784. ***************
  4785. *** 299,321 ****
  4786.   ### how to build MINTLIB
  4787.   
  4788.   COMMONSRC :=    a64l.c abort.c abs.c access.c alarm.c alphasor.c atexit.c \
  4789. !   atol.c bblink.c bcmp.c binmode.c bsearch.c calloc.c cfspeed.c chdir.c \
  4790. !   chmod.c clock.c close.c console.c crtinit.c ctermid.c \
  4791. !   ctime.c ctype.c defmode.c dirent.c \
  4792. !   doprnt.c dup.c eprintf.c exec.c execp.c fclose.c fcntl.c fdopen.c fflush.c \
  4793. !   fgetc.c fgets.c filbuf.c findfile.c fopen.c fopenp.c fork.c fprintf.c \
  4794. !   fputc.c fputs.c fread.c frwbin.c fscanf.c fseek.c fsetpos.c ftw.c \
  4795. !   fungetc.c fwrite.c getbuf.c getcwd.c getdtabl.c getenv.c getgroup.c \
  4796. !   gethostn.c getlogin.c getopt.c getpages.c getpass.c getpid.c getpw.c \
  4797. !   getrusag.c gets.c getuid.c getw.c grp.c heapbase.c ic.c ident.c ig.c \
  4798. !   il.c inistack.c initsig.c ioctl.c ip.c isatty.c iw.c kill.c killpg.c \
  4799. !   link.c localtim.c lockf.c lseek.c ltoa.c main.c malloc.c memccpy.c \
  4800.     memchr.c memcmp.c mkdir.c mkfifo.c mknod.c mktemp.c nice.c nlist.c \
  4801. !   obstack.c open.c \
  4802. !   pause.c perror.c pipe.c pgrp.c popen.c printf.c psignal.c putenv.c \
  4803.     qsort.c raise.c \
  4804. !   rand.c random.c read.c realloc.c regexp.c regsup.c rename.c rmdir.c \
  4805. !   sbrk.c scandir.c scanf.c select.c setbuf.c setlocal.c setrlimi.c \
  4806.     setvbuf.c sgtty.c sigactio.c sigblock.c siglist.c signal.c sleep.c \
  4807.     spawn.c spawnve.c spawnvp.c sprintf.c sscanf.c stat.c statfs.c stksiz.c \
  4808.     strcat.c strchr.c strcmp.c strcoll.c strcpy.c strcspn.c strdup.c \
  4809. --- 299,335 ----
  4810.   ### how to build MINTLIB
  4811.   
  4812.   COMMONSRC :=    a64l.c abort.c abs.c access.c alarm.c alphasor.c atexit.c \
  4813. !   atoi.c atol.c bblink.c bcmp.c binmode.c bsearch.c calloc.c \
  4814. !   cfgetisp.c cfgetosp.c cfsetisp.c cfsetosp.c chdir.c \
  4815. !   chmod.c chown.c clock.c close.c closedir.c console.c crtinit.c ctermid.c \
  4816. !   ctime.c ctype.c defmode.c \
  4817. !   doprnt.c do_lock.c do_stat.c dup.c dup2.c eprintf.c \
  4818. !   execl.c execle.c execp.c execv.c execve.c \
  4819. !   fclose.c fcntl.c fdopen.c fflush.c \
  4820. !   fgetc.c fgetpos.c fgets.c filbuf.c findfile.c flock.c fopen.c \
  4821. !   fopen_i.c fopenp.c fork.c fprintf.c \
  4822. !   fputc.c fputs.c fread.c freopen.c frwbin.c \
  4823. !   fscanf.c fseek.c fsetpos.c fstat.c ftell.c ftw.c \
  4824. !   fungetc.c fwrite.c getbuf.c getcwd.c \
  4825. !   getdtabl.c getenv.c getegid.c geteuid.c getgid.c getgroup.c \
  4826. !   gethostn.c getlogin.c getopt.c getpages.c \
  4827. !   getpass.c getpid.c getppid.c getpw.c \
  4828. !   getrusag.c gets.c getuid.c getw.c getwd.c \
  4829. !   grp.c heapbase.c ic.c ident.c ig.c \
  4830. !   il.c inistack.c initsig.c inode.c ioctl.c \
  4831. !   ip.c isatty.c isctty.c iw.c kill.c killpg.c \
  4832. !   l64a.c labs.c ldiv.c link.c localtim.c lockf.c lseek.c lstat.c \
  4833. !   ltoa.c main.c malloc.c memccpy.c \
  4834.     memchr.c memcmp.c mkdir.c mkfifo.c mknod.c mktemp.c nice.c nlist.c \
  4835. !   obstack.c open.c opendir.c \
  4836. !   pause.c perror.c pipe.c pgrp.c popen.c \
  4837. !   printf.c psignal.c putenv.c puts.c \
  4838.     qsort.c raise.c \
  4839. !   rand.c random.c read.c readdir.c realloc.c \
  4840. !   regexp.c regsup.c rename.c rewind.c rewinddi.c rmdir.c \
  4841. !   sbrk.c scandir.c scanf.c seekdir.c select.c \
  4842. !   setbuf.c setegid.c seteuid.c setlocal.c \
  4843. !   setregid.c setreuid.c setrlimi.c setgid.c setuid.c \
  4844.     setvbuf.c sgtty.c sigactio.c sigblock.c siglist.c signal.c sleep.c \
  4845.     spawn.c spawnve.c spawnvp.c sprintf.c sscanf.c stat.c statfs.c stksiz.c \
  4846.     strcat.c strchr.c strcmp.c strcoll.c strcpy.c strcspn.c strdup.c \
  4847. ***************
  4848. *** 323,331 ****
  4849.     strncpy.c strnicmp.c strpbrk.c strrchr.c strrev.c strspn.c strstr.c \
  4850.     strtok.c strtol.c strtoul.c strupr.c symlink.c sysconf.c system.c \
  4851.     sysvar.c tcattr.c tcbreak.c tcdrain.c tcflow.c tcflush.c tcpgrp.c \
  4852. !   textio.c thread.c time.c timeoday.c times.c tmpfile.c tmpnam.c \
  4853. !   toxxx.c truncate.c ttyname.c uname.c unlink.c unx2dos.c utime.c \
  4854. !   utmp.c vfprintf.c vprintf.c wait.c \
  4855.     wait3.c waitpid.c wcmb.c \
  4856.     wcscat.c wcscmp.c wcscpy.c wcslen.c wnull.c write.c wtmp.c 
  4857.   COMMONSRC := $(addprefix $(COMMONDIR)/,$(COMMONSRC))
  4858. --- 337,345 ----
  4859.     strncpy.c strnicmp.c strpbrk.c strrchr.c strrev.c strspn.c strstr.c \
  4860.     strtok.c strtol.c strtoul.c strupr.c symlink.c sysconf.c system.c \
  4861.     sysvar.c tcattr.c tcbreak.c tcdrain.c tcflow.c tcflush.c tcpgrp.c \
  4862. !   telldir.c textio.c thread.c time.c timeoday.c times.c tmpfile.c tmpnam.c \
  4863. !   toxxx.c truncate.c ttyname.c uidgid.c uname.c unlink.c unx2dos.c utime.c \
  4864. !   utmp.c vfprintf.c vfscanf.c vprintf.c vscanf.c wait.c \
  4865.     wait3.c waitpid.c wcmb.c \
  4866.     wcscat.c wcscmp.c wcscpy.c wcslen.c wnull.c write.c wtmp.c 
  4867.   COMMONSRC := $(addprefix $(COMMONDIR)/,$(COMMONSRC))
  4868. *** 43.1    1994/02/15 20:20:36
  4869. --- purec/mintlib.prj    1994/02/28 18:13:30
  4870. ***************
  4871. *** 19,24 ****
  4872. --- 19,25 ----
  4873.   ..\alphasor.c
  4874.   ..\atexit.c
  4875.   ; ..\atof.c        (use the version in pcstdlib/tcstdlib)
  4876. + ..\atoi.c
  4877.   ..\atol.c
  4878.   ..\bblink.c
  4879.   ..\bcmp.c
  4880. ***************
  4881. *** 26,36 ****
  4882.   ..\bsearch.c
  4883.   bzero.c
  4884.   ..\calloc.c
  4885. ! ..\cfspeed.c
  4886.   ..\chdir.c
  4887.   ..\chmod.c
  4888.   ..\clock.c
  4889.   ..\close.c
  4890.   ..\console.c
  4891.   ..\crtinit.c [-P -S- -T-]
  4892.   ..\ctermid.c
  4893. --- 27,42 ----
  4894.   ..\bsearch.c
  4895.   bzero.c
  4896.   ..\calloc.c
  4897. ! ..\cfgetisp.c
  4898. ! ..\cfgetosp.c
  4899. ! ..\cfsetisp.c
  4900. ! ..\cfsetosp.c
  4901.   ..\chdir.c
  4902.   ..\chmod.c
  4903. + ..\chown.c
  4904.   ..\clock.c
  4905.   ..\close.c
  4906. + ..\closedir.c
  4907.   ..\console.c
  4908.   ..\crtinit.c [-P -S- -T-]
  4909.   ..\ctermid.c
  4910. ***************
  4911. *** 38,68 ****
  4912.   ..\ctype.c
  4913.   ..\defmode.c
  4914.   ; ..\difftime.c        (pick this up from mintflt.lib or mint881.lib)
  4915. - ..\dirent.c
  4916.   ..\doprnt.c
  4917.   ..\dup.c
  4918.   ..\eprintf.c
  4919. ! ..\exec.c
  4920.   ..\execp.c
  4921.   ..\fclose.c
  4922.   ..\fcntl.c
  4923.   ..\fdopen.c
  4924.   ..\fflush.c
  4925.   ..\fgetc.c
  4926.   ..\fgets.c
  4927.   ..\filbuf.c
  4928.   ..\findfile.c
  4929.   ..\fopen.c
  4930.   ..\fopenp.c
  4931.   ..\fork.c
  4932.   ..\fprintf.c
  4933.   ..\fputc.c
  4934.   ..\fputs.c
  4935.   ..\fread.c
  4936.   ..\frwbin.c
  4937.   ..\fscanf.c
  4938.   ..\fseek.c
  4939.   ..\fsetpos.c
  4940.   ..\ftw.c
  4941.   ..\fungetc.c
  4942.   ..\fwrite.c
  4943. --- 44,85 ----
  4944.   ..\ctype.c
  4945.   ..\defmode.c
  4946.   ; ..\difftime.c        (pick this up from mintflt.lib or mint881.lib)
  4947.   ..\doprnt.c
  4948. + ..\do_lock.c
  4949. + ..\do_stat.c
  4950.   ..\dup.c
  4951. + ..\dup2.c
  4952.   ..\eprintf.c
  4953. ! ..\execl.c
  4954. ! ..\execle.c
  4955.   ..\execp.c
  4956. + ..\execv.c
  4957. + ..\execve.c
  4958.   ..\fclose.c
  4959.   ..\fcntl.c
  4960.   ..\fdopen.c
  4961.   ..\fflush.c
  4962.   ..\fgetc.c
  4963. + ..\fgetpos.c
  4964.   ..\fgets.c
  4965.   ..\filbuf.c
  4966.   ..\findfile.c
  4967. + ..\flock.c
  4968.   ..\fopen.c
  4969. + ..\fopen_i.c
  4970.   ..\fopenp.c
  4971.   ..\fork.c
  4972.   ..\fprintf.c
  4973.   ..\fputc.c
  4974.   ..\fputs.c
  4975.   ..\fread.c
  4976. + ..\freopen.c
  4977.   ..\frwbin.c
  4978.   ..\fscanf.c
  4979.   ..\fseek.c
  4980.   ..\fsetpos.c
  4981. + ..\fstat.c
  4982. + ..\ftell.c
  4983.   ..\ftw.c
  4984.   ..\fungetc.c
  4985.   ..\fwrite.c
  4986. ***************
  4987. *** 70,75 ****
  4988. --- 87,94 ----
  4989.   ..\getcwd.c
  4990.   ..\getdtabl.c
  4991.   ..\getenv.c
  4992. + ..\getegid.c
  4993. + ..\geteuid.c
  4994.   ..\getgroup.c
  4995.   ..\gethostn.c
  4996.   ..\getlogin.c
  4997. ***************
  4998. *** 77,87 ****
  4999. --- 96,108 ----
  5000.   ..\getpages.c
  5001.   ..\getpass.c
  5002.   ..\getpid.c
  5003. + ..\getppid.c
  5004.   ..\getpw.c
  5005.   ..\getrusag.c
  5006.   ..\gets.c
  5007.   ..\getuid.c
  5008.   ..\getw.c
  5009. + ..\getwd.c
  5010.   ..\grp.c
  5011.   ..\heapbase.c
  5012.   ..\ic.c
  5013. ***************
  5014. *** 90,105 ****
  5015. --- 111,132 ----
  5016.   ..\il.c
  5017.   ..\inistack.c
  5018.   ..\initsig.c
  5019. + ..\inode.c
  5020.   ..\ioctl.c
  5021.   ..\ip.c
  5022.   ..\isatty.c
  5023. + ..\isctty.c
  5024.   ..\iw.c
  5025.   ..\kill.c
  5026.   ..\killpg.c
  5027. + ..\l64a.c
  5028. + ..\labs.c
  5029. + ..\ldiv.c
  5030.   ..\link.c
  5031.   ..\localtim.c
  5032.   ..\lockf.c
  5033.   ..\lseek.c
  5034. + ..\lstat.c
  5035.   ..\ltoa.c
  5036.   ..\main.c [-P]
  5037.   ..\malloc.c
  5038. ***************
  5039. *** 115,120 ****
  5040. --- 142,148 ----
  5041.   ..\nlist.c
  5042.   ..\obstack.c
  5043.   ..\open.c
  5044. + ..\opendir.c
  5045.   ..\pause.c
  5046.   ..\perror.c
  5047.   ..\pipe.c
  5048. ***************
  5049. *** 123,145 ****
  5050. --- 151,184 ----
  5051.   ..\printf.c
  5052.   ..\psignal.c
  5053.   ..\putenv.c
  5054. + ..\puts.c
  5055.   ..\qsort.c [-S -T]
  5056.   ..\raise.c
  5057.   ..\rand.c
  5058.   ..\random.c
  5059.   ..\read.c
  5060. + ..\readdir.c
  5061.   ..\realloc.c
  5062.   ..\regexp.c
  5063.   ..\regsup.c
  5064.   ..\rename.c
  5065. + ..\rewind.c
  5066. + ..\rewinddi.c
  5067.   ..\rmdir.c
  5068.   ..\sbrk.c
  5069.   ..\scandir.c
  5070.   ..\scanf.c
  5071. + ..\seekdir.c
  5072.   ..\select.c
  5073.   ..\setbuf.c
  5074. + ..\setegid.c
  5075. + ..\seteuid.c
  5076. + ..\setgid.c
  5077.   ..\setlocal.c
  5078. + ..\setregid.c
  5079. + ..\setreuid.c
  5080.   ..\setrlimi.c
  5081. + ..\setuid.c
  5082.   ..\setvbuf.c
  5083.   ..\sgtty.c
  5084.   ..\sigactio.c
  5085. ***************
  5086. *** 189,194 ****
  5087. --- 228,234 ----
  5088.   ..\tcflow.c
  5089.   ..\tcflush.c
  5090.   ..\tcpgrp.c
  5091. + ..\telldir.c
  5092.   ..\textio.c
  5093.   ..\thread.c [-P -S-]
  5094.   ..\time.c
  5095. ***************
  5096. *** 199,211 ****
  5097. --- 239,254 ----
  5098.   ..\toxxx.c
  5099.   ..\truncate.c
  5100.   ..\ttyname.c
  5101. + ..\uidgid.c
  5102.   ..\uname.c
  5103.   ..\unlink.c
  5104.   ..\unx2dos.c
  5105.   ..\utime.c
  5106.   ..\utmp.c
  5107.   ..\vfprintf.c
  5108. + ..\vfscanf.c
  5109.   ..\vprintf.c
  5110. + ..\vscanf.c
  5111.   ..\wait.c
  5112.   ..\wait3.c
  5113.   ..\waitpid.c
  5114. *** 43.1    1994/02/15 20:23:28
  5115. --- sozobon/makefile    1994/02/28 17:41:06
  5116. ***************
  5117. *** 47,93 ****
  5118.   
  5119.   # These are in alphabetical order to make it easy to find one.
  5120.   OBJECTS = \
  5121. !     abort.o abs.o access.o alarm.o alloca.o alphasor.o \
  5122. !     atexit.o atol.o \
  5123.       bcmp.o bcopy.o binmode.o bsearch.o bzero.o \
  5124. !     calloc.o chdir.o chmod.o clock.o close.o console.o crtinit.o \
  5125. !     ctermid.o ctime.o ctype.o cuserid.o \
  5126. !     defmode.o difftime.o dirent.o doprnt.o dup.o \
  5127. !     eprintf.o exec.o execp.o\
  5128. !     fclose.o fcntl.o fdopen.o fflush.o ffs.o fgetc.o fgets.o filbuf.o \
  5129. !     findfile.o fopen.o fopenp.o fork.o fprintf.o fputc.o fputs.o \
  5130. !     fread.o frwbin.o fscanf.o fseek.o fsetpos.o ftw.o fungetc.o \
  5131.       fwrite.o \
  5132. !     getbuf.o getcwd.o getdtabl.o getenv.o getgroup.o gethostn.o \
  5133. !     getlogin.o getopt.o getpages.o getpass.o getpid.o getpw.o \
  5134. !     getrusag.o gets.o getuid.o getw.o grp.o \
  5135.       heapbase.o \
  5136. !     ic.o ident.o ig.o il.o inistack.o initsig.o ioctl.o ip.o \
  5137. !     isatty.o iw.o \
  5138.       kill.o killpg.o \
  5139. !     linea.o link.o lmalloc.o localtim.o lockf.o lseek.o ltoa.o \
  5140. !     main.o malloc.o memccpy.o memchr.o memcmp.o mkdir.o mknod.o \
  5141. !     mktemp.o \
  5142. !     nice.o \
  5143. !     obstack.o open.o osbind.o \
  5144.       pause.o perror.o pgrp.o pipe.o popen.o printf.o psignal.o putenv.o \
  5145.       qsort.o \
  5146. !     raise.o rand.o random.o read.o realloc.o regexp.o regsup.o \
  5147. !     rename.o rmdir.o \
  5148. !     sbrk.o scandir.o scanf.o select.o setbuf.o setjmp.o setlocal.o \
  5149. !     setrlimi.o setvbuf.o sgtty.o sigactio.o sigblock.o siglist.o \
  5150.       signal.o sleep.o sozolong.o sozulong.o spawn.o spawnve.o \
  5151.       spawnvp.o sprintf.o sscanf.o stat.o statfs.o stksiz.o strcat.o \
  5152.       strchr.o strcmp.o strcoll.o strcpy.o strcspn.o strdup.o \
  5153.       strerror.o strftime.o stricmp.o strlen.o strlwr.o strncat.o \
  5154.       strncmp.o strncpy.o strnicmp.o strpbrk.o strrchr.o strrev.o \
  5155.       strspn.o strstr.o strtok.o strtol.o strtoul.o strupr.o symlink.o \
  5156. !     sysconf.o system.o sysvar.o \
  5157. !     textio.o thread.o time.o timeoday.o times.o tmpfile.o tmpnam.o \
  5158. !     toxxx.o truncate.o ttyname.o \
  5159. !     uname.o unlink.o unx2dos.o utime.o utmp.o \
  5160. !     vfork.o vfprintf.o vprintf.o \
  5161. !     wait.o wait3.o waitpid.o wcmb.o write.o wtmp.o
  5162.   
  5163.   # Rule to handle .cpp files
  5164.   .SUFFIXES: .cpp
  5165. --- 47,109 ----
  5166.   
  5167.   # These are in alphabetical order to make it easy to find one.
  5168.   OBJECTS = \
  5169. !     a64l.o abort.o abs.o access.o alarm.o alloca.o alphasor.o \
  5170. !     atexit.o atoi.o atol.o \
  5171.       bcmp.o bcopy.o binmode.o bsearch.o bzero.o \
  5172. !     calloc.o cfgetisp.o cfgetosp.o cfsetisp.o cfsetosp.o \
  5173. !     chdir.o chmod.o chown.o clock.o close.o closedir.o console.o \
  5174. !     crtinit.o ctermid.o ctime.o ctype.o cuserid.o \
  5175. !     defmode.o difftime.o div.o doprnt.o \
  5176. !     do_lock.o do_stat.o dup.o dup2.o \
  5177. !     eprintf.o execl.o execle.o execp.o execv.o execve.o \
  5178. !     fclose.o fcntl.o fdopen.o fflush.o \
  5179. !     ffs.o fgetc.o fgetpos.o fgets.o filbuf.o \
  5180. !     findfile.o flock.o fopen.o fopen_i.o fopenp.o \
  5181. !     fork.o fprintf.o fputc.o fputs.o \
  5182. !     fread.o freopen.o frwbin.o fscanf.o fseek.o fsetpos.o \
  5183. !     fstat.o ftell.o ftw.o fungetc.o \
  5184.       fwrite.o \
  5185. !     getbuf.o getcwd.o getdtabl.o getegid.o geteuid.o getenv.o \
  5186. !     getgid.o getgroup.o gethostn.o \
  5187. !     getlogin.o getopt.o getpages.o \
  5188. !     getpass.o getpid.o getppid.o getpw.o \
  5189. !     getrusag.o gets.o getuid.o getw.o getwd.o grp.o \
  5190.       heapbase.o \
  5191. !     ic.o ident.o ig.o il.o inistack.o initsig.o inode.o ioctl.o ip.o \
  5192. !     isatty.o isctty.o iw.o \
  5193.       kill.o killpg.o \
  5194. !     l64a.o labs.o ldiv.o linea.o link.o lmalloc.o localtim.o \
  5195. !     lockf.o lseek.o lstat.o ltoa.o \
  5196. !     main.o malloc.o memccpy.o memchr.o memcmp.o memset.o mkdir.o \
  5197. !     mkfifo.o mknod.o mktemp.o \
  5198. !     nice.o nlist.o \
  5199. !     obstack.o open.o opendir.o osbind.o \
  5200.       pause.o perror.o pgrp.o pipe.o popen.o printf.o psignal.o putenv.o \
  5201. +     putpwent.o puts.o \
  5202.       qsort.o \
  5203. !     raise.o rand.o random.o read.o readdir.o \
  5204. !     realloc.o regexp.o regsup.o \
  5205. !     rename.o rewind.o rewinddi.o rmdir.o \
  5206. !     sbrk.o scandir.o scanf.o seekdir.o select.o \
  5207. !     setbuf.o setegid.o seteuid.o setgid.o setjmp.o setlocal.o \
  5208. !     setregid.o setreuid.o setrlimi.o setuid.o setvbuf.o sgtty.o \
  5209. !     sigactio.o sigblock.o siglist.o \
  5210.       signal.o sleep.o sozolong.o sozulong.o spawn.o spawnve.o \
  5211.       spawnvp.o sprintf.o sscanf.o stat.o statfs.o stksiz.o strcat.o \
  5212.       strchr.o strcmp.o strcoll.o strcpy.o strcspn.o strdup.o \
  5213.       strerror.o strftime.o stricmp.o strlen.o strlwr.o strncat.o \
  5214.       strncmp.o strncpy.o strnicmp.o strpbrk.o strrchr.o strrev.o \
  5215.       strspn.o strstr.o strtok.o strtol.o strtoul.o strupr.o symlink.o \
  5216. !     sync.o sysconf.o system.o sysvar.o \
  5217. !     tcattr.o tcbreak.o tcdrain.o tcflow.o tcflush.o \
  5218. !     tcpgrp.o telldir.o textio.o \
  5219. !     thread.o time.o timeoday.o times.o tmpfile.o tmpnam.o toxxx.o \
  5220. !     truncate.o ttyname.o \
  5221. !     uidgid.o uname.o unlink.o unx2dos.o utime.o utmp.o \
  5222. !     vfork.o vfprintf.o vfscanf.o vprintf.o vscanf.o \
  5223. !     wait.o wait3.o waitpid.o wcmb.o wcscat.o \
  5224. !     wcscmp.o wcscpy.o wcslen.o \
  5225. !     wnull.o write.o wtmp.o
  5226.   
  5227.   # Rule to handle .cpp files
  5228.   .SUFFIXES: .cpp
  5229. ***************
  5230. *** 106,117 ****
  5231.   # Make sure the targets get built if necessary
  5232.   alloca.o: alloca.cpp
  5233.   bcopy.o: bcopy.cpp
  5234. - bzero.o: bzero.cpp
  5235.   crt0.o: crt0.cpp
  5236.   osbind.o: osbind.cpp
  5237.   setjmp.o: setjmp.cpp
  5238.   vfork.o: vfork.cpp
  5239.   
  5240.   # If you're using 1.33i's make or ar, this command will fail spectacularly
  5241.   # for the first build; you'll have to build it by hand, a few files
  5242.   # at a time.  After that, if you only change a few files at a time,
  5243. --- 122,145 ----
  5244.   # Make sure the targets get built if necessary
  5245.   alloca.o: alloca.cpp
  5246.   bcopy.o: bcopy.cpp
  5247.   crt0.o: crt0.cpp
  5248.   osbind.o: osbind.cpp
  5249.   setjmp.o: setjmp.cpp
  5250.   vfork.o: vfork.cpp
  5251.   
  5252. + # bzero.cpp contains both bzero() and memset().
  5253. + bzero.o: bzero.cpp
  5254. +     $(CPP) $(CPPFLAGS) -DLbzero bzero.cpp bzero.i
  5255. +     mit2mot bzero.i
  5256. +     $(RM) bzero.i
  5257. +     $(AS) $(AFLAGS) bzero.s
  5258. + 
  5259. + memset.o: bzero.cpp
  5260. +     $(CPP) $(CPPFLAGS) -DLmemset bzero.cpp memset.i
  5261. +     mit2mot memset.i
  5262. +     $(RM) memset.i
  5263. +     $(AS) $(AFLAGS) memset.s
  5264. + 
  5265.   # If you're using 1.33i's make or ar, this command will fail spectacularly
  5266.   # for the first build; you'll have to build it by hand, a few files
  5267.   # at a time.  After that, if you only change a few files at a time,
  5268. *** 43.1    1994/02/15 20:23:28
  5269. --- sozobon/readme    1994/02/19 12:50:50
  5270. ***************
  5271. *** 1,4 ****
  5272. ! MiNT library for Heat-n-Serve/Sozobon C, patchlevel 34
  5273.   
  5274.   This is a port of Eric Smith's MiNT library to Heat-n-Serve C, based on
  5275.   Dave Gymer's original port.  It replaces the files dlibs.a, dstart.o,
  5276. --- 1,4 ----
  5277. ! MiNT library for Heat-n-Serve/Sozobon C, patchlevel 43
  5278.   
  5279.   This is a port of Eric Smith's MiNT library to Heat-n-Serve C, based on
  5280.   Dave Gymer's original port.  It replaces the files dlibs.a, dstart.o,
  5281. ***************
  5282. *** 16,22 ****
  5283.   archives:
  5284.   
  5285.       mntincXX.zoo
  5286. !         The library header files for version XX (currently 30).  If
  5287.           you're using the MiNTlibs at all, you should already have these.
  5288.       mnthlbXX.zoo
  5289.           The binary distribution of the MiNTlibs.  You will need this for
  5290. --- 16,22 ----
  5291.   archives:
  5292.   
  5293.       mntincXX.zoo
  5294. !         The library header files for version XX (currently 43).  If
  5295.           you're using the MiNTlibs at all, you should already have these.
  5296.       mnthlbXX.zoo
  5297.           The binary distribution of the MiNTlibs.  You will need this for
  5298. ***************
  5299. *** 45,53 ****
  5300.       ps.c
  5301.       Source for a process listing utility, as an example of MiNT
  5302.       programming.
  5303. -     orig/
  5304. -         Some .s and .c files from previous distributions which are now
  5305. -         built from .cpp files.  You shouldn't need these.
  5306.   
  5307.   WHAT TO DO WITH IT:
  5308.   
  5309. --- 45,50 ----
  5310. ***************
  5311. *** 59,71 ****
  5312.       somewhere where make can find them.
  5313.   
  5314.   2)  From the main source directory, delete all files beginning with '_',
  5315. !     as well as linea.c and inistack.c.  Copy all the .s files from this
  5316. !     directory, as well as termcap.c and makefile, to the main source
  5317. !     directory.
  5318.   
  5319.   3)  Edit osbind.h from the MiNT include distribution.  Find the macro
  5320. !     definitions for trap_14_wllwwwwwlw(), spanning lines 1309-1349 and
  5321. !     1456-1500 (or thereabouts).  Delete every scrap of white space you
  5322.       can from these macros.  Otherwise, they overrun HSC's static line
  5323.       buffer.
  5324.   
  5325. --- 56,68 ----
  5326.       somewhere where make can find them.
  5327.   
  5328.   2)  From the main source directory, delete all files beginning with '_',
  5329. !     as well as alglobal.c, linea.c and inistack.c.  Copy all the .s
  5330. !     files from this directory, as well as termcap.c and makefile, to the
  5331. !     main source directory.
  5332.   
  5333.   3)  Edit osbind.h from the MiNT include distribution.  Find the macro
  5334. !     definitions for trap_14_wllwwwwwlw(), spanning lines 1318-1358 and
  5335. !     1465-1509 (or thereabouts).  Delete every scrap of white space you
  5336.       can from these macros.  Otherwise, they overrun HSC's static line
  5337.       buffer.
  5338.   
  5339.